<% If session("nick") = Request.Querystring("user") Then %>
<HTML>
<%
Session("dbasepath") = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\cgi-bin\loggain.mdb")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open Session("dbasepath")
SQL = "SELECT * FROM meddelande WHERE to = '" & Request.Querystring("user") & "' AND Nytt = '1'"
Set RS = Connection.Execute(SQL)
%>
<% Do Until rs.EOF or rs.BOF %>
<%=RS("subjekt")%>
<%
rs.MoveNext
Loop
%>
<%
SQL = "SELECT * FROM meddelande WHERE to = '" & Request.Querystring("user") & "') AND Nytt = '0'"
Set RS2 = Connection.Execute(SQL)
%>
<% Do Until RS2.EOF or RS2.BOF %>
<%=RS2("subjekt")%>
<%
rs.MoveNext
Loop
%>
<% else %>
Fel!
<% End IF %>
</HTML>
Felet blir följande:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e07'
[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.
/forum/meddelande.asp, rad 9
Vad e det som inte stämmer.
Mina fält i databasen heter ID,to,from,subjekt,message,nytt
Tacksam för svar
------------------
::::::::::::::::::::::::
:Mvh. Torlejf :: Design:
::::::::::::::::::::::::
Hemsida på G!!!
om fältet Nytt är av typen tal så ligger nog felet där.
I koden så ser jag att du skrivit - AND Nytt = '1'" -
Enkel fnuttarna gör så att ettan blir en text sträng. Ta bort dem och det är ett tal igen.
<redigerat>
och du har det även längre ned i koden - Nytt = '0'"
Samma sak där ....
</redigerat>
