Underlig fejl?

formentlig fordi du mangler at indsætte en værdi i ID

prøv at kom med din sql

Omklamre ID med [ og ]

altså

strSQL = "SELECT * FROM tabel WHERE [ID] = 12"

Fejlen opstår pga. ID er et reseveret ord i Access...

//>Rune

De betyder du ikke får overført en id til filen som den forvendte

filnavn.asp?id=XXXX          '<--- id=xxx mangler derfor kommer fejlen.

Så vidt jeg kan se er det i en SQL sætning eks på where delen:

... WHERE id = " & Request.querystring("id")

Så bliver det til

... WHERE id = "

Så kommer fejler når man udføre SQL sætningen.

Hvor skal det indsættes?

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Posted = 0

If Len(Trim(Request.Form("Subject"))) = 0 AND Len(Trim(Request.Form("Comment"))) = 0 Then
    strSQL = "SELECT * FROM Forums WHERE (ID = " & Request("ForumID") & ")"
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        intForumID = rs("ID")
        strForum = rs("Forum")
    End If
Else
    strSQL = "INSERT INTO Entries"
    If Len(Trim(Request.Form("MessageId"))) = 0 Then
        strSQL = strSQL & " (Name, Email, Subject, Comment, ForumId, Orgthread)"
        strSQL = strSQL & " VALUES('" & DBFix(Trim(Request.Form("Name"))) & "', '" & DBFix(Trim(Request.Form("Email"))) & "', '" & DBFix(Trim(Request.Form("Subject"))) & "', '" & DBFix(Trim(Request.Form("Comment"))) & "', '" & DBFix(Trim(Request("ForumId"))) & "', TRUE);"
        Sql = "Select * from Entries Where Id =" & request("MessageId")
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.Open Sql, myConn, 3, 3
        rs("lastreply") = now()
        rs.Update
        rs.close
    Else
        tempSQL = "SELECT Subject FROM Entries WHERE (Id = " & Request("MessageId") & ")"
        Set tempRS = myConn.Execute(tempSQL)
        strSQL = strSQL & " (Name, Email, Comment, ForumId, ReplyId, Subject)"
        strSQL = strSQL & " VALUES('" & DBFix(Trim(Request.Form("Name"))) & "', '" & DBFix(Trim(Request.Form("Email"))) & "', '" & DBFix(Trim(Request.Form("Comment"))) & "', '" & DBFix(Trim(Request("ForumId"))) & "','" & DBFix(Trim(Request("MessageId"))) & "','" & DBFix(Trim(tempRS("Subject"))) & "' );"
        tempRS.Close
        Sql = "Select * from Entries Where Id =" & request("MessageId")
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.Open Sql, myConn, 3, 3
        rs("lastreply") = now()
        rs.Update
        rs.close
    End If
    myConn.Execute(strSQL)
    Posted = 1
End If
myConn.Close
%>

hvilken linie går det galt i?

21

        rs.Open Sql, myConn, 3, 3

Det er så i denne SQL sætning som giver problemmet:

Sql = "Select * from Entries Where Id =" & request("MessageId")

Det kunne tyde på du ikke får overført MessageId til asp filen??

det ved jeg ikke. der har ikke været problemer før nu

Kan du se filnanvet i browseren?? så tjek at der står

filnavn.asp?messageId=XXX

ikke problemer før nu? hvad har du ændret, lavet eller ikke lavet? ligger det evt et sted vi kan teste og se det?

så skriver den

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Extra ) in query expression '(ID = )'.

Prøv lige at vis SQL sætnigen lige inden linie 21 som fejler..

dette er linie 20 i scriptet.

        Set rs = Server.CreateObject("ADODB.Recordset")

Det skal være linie 19. En linie som starter med

strSQL =

linie 18

strSQL = strSQL & " VALUES('" & DBFix(Trim(Request.Form("Name"))) & "', '" & DBFix(Trim(Request.Form("Email"))) & "', '" & DBFix(Trim(Request.Form("Subject"))) & "', '" & DBFix(Trim(Request.Form("Comment"))) & "', '" & DBFix(Trim(Request("ForumId"))) & "', TRUE);"

det kan godt være du ikke har rette i koden men der er noget i koden som ikke er heldigt...

Denne if sætning tjekke om messageID er tom:

If Len(Trim(Request.Form("MessageId"))) = 0 Then

inden i then delen laver og udføre du denne SQL sætning:
Sql = "Select * from Entries Where Id =" & request("MessageId")

Så det vil give fejl...

Enten gør du noget som du aldig har gjort før i dit forum eller også er der ændret i koden...

Hvad skal jeg ændre til hvad?

Umiddelbart uden at kende noget til resten af koden ... så skal du prøve at udkommentere disse linier inde i denne then del som dette:


  If Len(Trim(Request.Form("MessageId"))) = 0 Then
        strSQL = strSQL & " (Name, Email, Subject, Comment, ForumId, Orgthread)"
        strSQL = strSQL & " VALUES('" & DBFix(Trim(Request.Form("Name"))) & "', '" & DBFix(Trim(Request.Form("Email"))) & "', '" & DBFix(Trim(Request.Form("Subject"))) & "', '" & DBFix(Trim(Request.Form("Comment"))) & "', '" & DBFix(Trim(Request("ForumId"))) & "', TRUE);"
'        Sql = "Select * from Entries Where Id =" & request("MessageId")
'        Set rs = Server.CreateObject("ADODB.Recordset")
'        rs.Open Sql, myConn, 3, 3
'        rs("lastreply") = now()
'        rs.Update
'        rs.close
    Else
       

Resten af koden skal være som før.

det ser ud til at virke, men før stod indlægene i dato orden, det er pludeslig væk nu. Kan det rettes til?

Så skal det være i den del af koden som viser posterne.. Du kan tilføje

ORDER BY dato

Hvor skal det indsætte? det skal vel indsætte i ovenstående script?

Det skal sættes ind hvor den SQL som udskriver fra databasen.. Så vidt jeg kan se er den kode du har vist en del som opdater databasen med en ny besekd??

nips :> der sker vist ikke mere her! luk venligst spørgsmålet
:> Gizom

Thx 4 Poinz

//>Rune