Hade varit skitbra om nån kunde tala om vad jag gör för fel...har följande skript:
<html>
<body>
<!-- #include virtual="/inc/adovbs.inc" -->
<% If Request.QueryString("ordna").Count > 0 Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Artiklar"
Set RecSet = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("ordna") = "rubrik" Then
Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY Rubrik"
Else If Request.QueryString("ordna") = "datum" Then
Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY ID"
Else If Request.QueryString("ordna") = "last" Then
Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY Last DESC"
End If
RecSet.Open Lista, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF %>
<a href="default.asp?ID=<%=RecSet("ID")%>">
<%=RecSet("Rubrik")%></a><br>
<% RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
(((I BÖRJAN AV RADEN NEDAN ÄR FELET)))
ElseIf Request.QueryString("ID").Count > 0 Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Artiklar"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Lista = "SELECT * FROM Artiklar WHERE ID = " & Trim(Request.QueryString("ID")) & " "
RecSet.Open Lista, Connect, adOpenStatic, adLockOptimistic
RecSet("Last") = RecSet("Last")+1
RecSet.Update%>
IDnr:<br>
<%=RecSet("ID")%><br><br>
Rubriken:<br>
<%=RecSet("Rubrik")%><br><br>
Huvudtexten:<br>
<%=RecSet("Huvudtext")%><br><br>
Sidotexten:<br>
<%=RecSet("Sidotext")%><br><br>
Bild-URLn:<br>
<%=RecSet("Bildurl")%><br><br>
Datum:<br>
<%=RecSet("Datum")%><br><br>
Läst:<br>
<%=RecSet("Last")%><br><br>
<%
RecSet.Close
Connect.Close
Else %>
Skriv ?ID eller ?ordna vettja!
<% EndIf%>
</body>
</html>
När jag kör detta får jag ett fel som säger att "End" väntas, när jag lägger till det får jag att "If" vänder direkt efter. När jag lägger till det får jag "Expected statement" fel. Vet någon vad jag ska göra? Andra tips på änding i koden är också välkommen då jag är rätt ny på DBprogg.
Tack!
------------------
Om jag hade haft fel, skulle en enda ha räckt!CITAT]
Tack, fast nu blir det typ samma sak fast med End If på tredje sista raden.
Om jag skriver "End If" får jag felmeddelandet "Expected 'End'" Om jag bara skriver "End" (utan If) får jag får jag "Expected 'If'"
End
___^
Och om jag skriver EndIf (ihopsatt) får jag "Expected Statement".
(Jag tog bort Else på raden med förra felet för att få det att fungera)
------------------
Om jag hade haft fel, skulle en enda ha räckt!CITAT]
Om du skriver ihop else och if till ett ord så ...
If Request.QueryString("ordna") = "rubrik" Then
Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY Rubrik"
ElseIf Request.QueryString("ordna") = "datum" Then
Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY ID"
ElseIf Request.QueryString("ordna") = "last" Then
Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY Last DESC"
End If
------------------ essentitia preter non sans multiplicandum
