Kolla bara på koden... den påstår att jag inte satt End IF, "End förväntas..."
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("Driver=MySQL ODBC 3.51 Driver;server=localhost;database=annonser;uid=root;pwd=")
strVal = request.querystring("val")
If strVal = "visa_alla" then
strSQL = "Select * From t_annonser ORDER by datum DESC"
Else IF strVal = "saljes" then
strSQL = "Select * From t_annonser Where kategori = 'Säljes' ORDER BY datum DESC"
Else IF strVal = "kopes" then
strSQL = "Select * From t_annonser Where kategori = 'Köpes' ORDER BY datum DESC"
Else IF strVal = "uthyres" then
strSQL = "Select * From t_annonser Where kategori = 'Uthyres' ORDER BY datum DESC"
Else IF strVal = "onskas_uthyrning" then
strSQL = "Select * From t_annonser Where kategori = 'Önskas uthyrning' ORDER BY datum DESC"
Else
strSQL = "Select * From t_annonser ORDER by datum DESC"
End IF
set objRS = Connect.execute(strSQL)
IF objRS.EOF then
response.write "<hr size=""1"" color=""black""><i>Inga annonser...</i><hr size=""1"" color=""black"">"
Else
Do Until objRS.eof
response.write "<table width=""500""><tr><td width=""70""><b>Namn:</b></td><td>"& objRS("namn") &"</td></tr></table>"
objRS.movenext
loop
END IF
%>
nu får man ju det roliga.... usch!
har ju odbc 3.51 installerat!
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Datakällan hittades inte och ingen standarddrivrutin är angiven
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("mysql;server=localhost;database=annonser;uid=root;pwd=")
