Hej!
Får ett konstigt felmess...
Command text was not set for the command object...
Här e koden, misstänker ju SQL frågan att den e tom på nån vänster, men why?
[red]
<%
'Set Connect = Server.CreateObject("ADODB.Connection")
'Connect.open("driver=myodbc3-test;server=localhost;user=root;password=;database=annonser;")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("driver=mysql;server=mysql.webkonsulterna.com;user=xxx;password=xxx;database=abkkindes;")
strVal = request.querystring("val")
If strVal = "visa_alla" then
strSQL = "Select * From t_annonser ORDER by datum DESC"
ElseIF strVal = "saljes" then
strSQL = "Select * From t_annonser Where kategori = 'Säljes' ORDER BY datum DESC"
ElseIF strVal = "kopes" then
strSQL = "Select * From t_annonser Where kategori = 'Köpes' ORDER BY datum DESC"
ElseIF strVal = "uthyres" then
strSQL = "Select * From t_annonser Where kategori = 'Uthyrning' ORDER BY datum DESC"
ElseIF strVal = "onskas_uthyrning" then
strSQL = "Select * From t_annonser Where kategori = 'Söker att hyra' ORDER BY datum DESC"
ELseIF strVal = "lagg_till" then
Response.Write("<span class=""rubrik"">Lägg till annons</span>" & vbcrlf)
Response.Write("<br><br><br>" & vbcrlf)
Response.Write("<form name=""lagg_till"" method=""post"" action=""reg_annons.asp"" class=""brod"">" & vbcrlf)
Response.Write("<b>Namn</b><br>" & vbcrlf)
Response.Write("<input type=""text"" name=""namn""><br>" & vbcrlf)
Response.Write("<b>E-post</b><br>" & vbcrlf)
Response.Write("<input type=""text"" name=""epost""><br>" & vbcrlf)
Response.Write("<b>Kategori</b><br>" & vbcrlf)
Response.Write("<input type=""radio"" name=""kategori"" value=""Säljes""> Säljes<br>" & vbcrlf)
Response.Write("<input type=""radio"" name=""kategori"" value=""Köpes""> Köpes<br>" & vbcrlf)
Response.Write("<input type=""radio"" name=""kategori"" value=""Uthyrning""> Uthyrning<br>" & vbcrlf)
Response.Write("<input type=""radio"" name=""kategori"" value=""Söker att hyra""> Söker att hyra<br>" & vbcrlf)
Response.Write("<b>Pris</b><br>" & vbcrlf)
Response.Write("<input type=""text"" name=""pris""><br>" & vbcrlf)
Response.Write("<b>Beskrivning</b><br>" & vbcrlf)
Response.Write("<textarea name=""beskrivning"" rows=""9"" cols=""53""></textarea><br><br>" & vbcrlf)
Response.Write("<b>Ditt annonsnummer (för att kunna ta bort din annons, skriv ner detta nummer)</b><br>" & vbcrlf)
Response.Write("""random nummer""<br>" & vbcrlf)
Response.Write("<input type=""submit"" value=""Lägg till annons!"">" & vbcrlf)
Response.Write("</form>")
ElseIF strVal = "radera" then
Response.Write("<span class=""rubrik"">Radera din annons</span>" & vbcrlf)
Response.Write("<br><br><br>" & vbcrlf)
Response.Write("Fyll i det nummer du fick när du lade till din annons. Det går <b>inte</b> att ångra denna åtgärd.<br><br>" & vbcrlf)
Response.Write("<form name=""radera"" method=""post"" action=""del_annons.asp"" class=""brod"">" & vbcrlf)
Response.Write("<b>Ditt annonsnummer</b><br>" & vbcrlf)
Response.Write("<input type=""text"" name=""annonsnummer""><br><br>" & vbcrlf)
Response.Write("<input type=""submit"" value=""Radera annonsen"">" & vbcrlf)
Response.Write("</form>")
Else
strSQL = "Select * From t_annonser ORDER by datum DESC"
End IF
response.write strSQL
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"" class=""brod""><tr><td width=""70""><b>Namn:</b></td><td>"& objRS("namn") &"</td></tr>"&_
"<tr><td width=""70""><b>E-post:</b></td><td><a href=""malto:"&objRS("epost")&""" class=""lankar"""">"&objRS("epost")&"</a></td></tr>"&_
"<tr><td width=""70""><b>Kategori:</b></td><td>"&objRS("kategori")&"</td></tr>"&_
"<tr><td width=""70""><b>Insänd:</b></td><td>"&objRS("datum")&"</td></tr>"&_
"<tr><td width=""70""><b>Pris:</b></td><td>"&objRS("pris")&"</td></tr>"&_
"<tr><td width=""70""><b>Beskrivning:</b></td></tr>"&_
"<tr><td width=""500"">"&objRS("beskrivning")&"</td></tr></table><hr size=""1"" color=""#000000"">"
objRS.movenext
loop
END IF
%>