Vad är det för fel om det är ett syntaxfel i INSERT INTO satsen??

Har testat och ändrat och ändrat, men inget går.
Kör exakt samma sak på en annan sida, fast det hämtar data ur en annan tabell där...blir galen på detta!

Hjälp nån snälla!

Skriv
Response.Write sqlSträng
Response.End

Efter sql strängen... så kan du nog lista ut vad felet är..

Går du till en bilverkstad frågar reparatören vad det är för fel på bilen. Kommer han fråga dig var bilen är så han kan titta på den.

Samma gäller oss programmerare. Vi kan inget göra utan ledtrådar. Visa oss kod och felmeddelande så kan vi hjälpa dig. Men utan det krävs parasykiska krafter.

Kod:


<%
Response.Expires = -1
Response.Buffer = True
%>
<!-- #INCLUDE FILE="Data.INC" -->
<!-- #INCLUDE FILE="adovbs.INC" -->
<%
MinCon.open db

Dim Nick, Till, inlagg, Nytt, Anvnamn, Datum, Tid, IP, SQL, vart, SQL3

Nick = Request.QueryString("nick")

If nick = "" then
Response.Redirect("chatmain.asp?status=2")
End if


Function fixa(text)
text = Replace(text,"'","´")
fixa = text
End Function

Anvnamn = Session("logon")
Datum = FormatDateTime(Date, vbshortdate)
Tid = FormatDateTime(Time, vbshorttime)
IP = Request.ServerVariables("REMOTE_HOST")
Till = Fixa(Request.Form("till"))
Inlagg = Fixa(Request.Form("chattet"))

If Inlagg = "" then
Response.Redirect(vart)
End if

Nytt = "INSERT INTO Chat(Anvnamn, Nick, Till, Tid, Datum, Text, IP) Values ('" & Anvnamn & "','" & Nick & "','" & Till & "','" & Tid & "','" & Datum & "','" & Inlagg & "','" & IP & "')"
Response.Write(Nytt)
Response.Flush
Response.End
MinCon.Execute Nytt
MinCon.close
Set MinCon = nothing
%>



Skriver ut Nytt direkt:

INSERT INTO Chat(Anvnamn, Nick, Till, Tid, Datum, Text, IP) Values ('EmPa','EmPaa','EmPa','19:31','2002-07-15','Hej igen!','127.0.0.1')


Felmeddelande:

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel i INSERT INTO-uttryck.
/projekt/circle/nyttchat.asp, line 65

Men jag gissar på att felmeddelandet beror på att Text är ett reserverat ord och att du hade två ' istället för ett ' på ett ställe.<br>
<br>
Du behöver inte två fält för tid och datum. Du kan lagra det i ett och samma:

<code>
<%
Response.Expires = -1
Response.Buffer = True
%>
<!-- #INCLUDE FILE="Data.INC" -->
<!-- #INCLUDE FILE="adovbs.INC" -->
<%

Function SQLText(Value)
If Len(Value) > 0 Then
SQLText = "'" & Replace(Value,"'","''") & "'"
Else
SQLText = "Null"
End If
End Function

Function SQLDate(Value)
If IsDate(Value) Then
SQLDate = "#" & Month(Value) & "/" & Day(Value) & "/" & Year(Value) & " " & Hour(Value) & ":" & Minute(Value) & ":" & Second(Value) & "#"
Else
SQLDate = "Null"
End If
End Function

Dim Nick, Till, inlagg, Anvnamn, Tid, IP, SQL, vart

Anvnamn = Session("logon")

If Len(Anvnamn) then
Nick = Request.QueryString("nick")

If Len(Nick) Then
Inlagg = Request.Form("chattet")

If Len(Inlagg) Then
IP = Request.ServerVariables("REMOTE_HOST")
Till = Request.Form("till")
SQL = "INSERT INTO Chat(Anvnamn, Nick, Till, Tid, [Text], IP) VALUES (" & SQLText(Anvnamn) & ", " & SQLText(Nick) & ", " & SQLText(Till) & "," & SQLDate(Now()) & ", " & SQLText(Inlagg) & ", " & SQLText(IP) & ")"

Response.Flush
Response.End

MinCon.open db
MinCon.Execute Nytt
MinCon.close
Else
Response.Redirect(vart)
End if
Else
Response.Redirect "chatmain.asp?status=2"
End if
Else
Response.Write "<h3>Not logged in!</h3>"
End If
Set MinCon = nothing
%>
</code>

Tack så mycket för hjälpen, det var TEXT som krånglade.