28 svar · 519 visningar · startad av Gardell · sida 2 av 2
Jag gör ett script till min filmsida! Planeringen är att det ska komma upp en länk, när man trycker på länken ska det visas! Länken har jag länkat till filmsajten.asp?film=\<%=rs("id")%\>! Där jag fastnade var hur querystringen ska se ut om man vill visa ett speciellt id utan att veta vilket! Hur blir detta? :q
Läs frågan i sin helhet →Tex så här:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("filmer.mdb")&";"
If len(Request.QueryString("film")) = 0 Then
Response.Write "frågade inget"
Else
strSQL = "SELECT * FROM film WHERE id = "& Request.QueryString("film")
Set objRS = Connect.Execute(strSQL)
Response.Write objRS("Recension")
End if
%>
<%
If len(Request.QueryString("film")) = 0 Then
Response.Write "En text."
Else
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("filmer.mdb")&";"
strSQL = "SELECT * FROM film WHERE id = "& Request.QueryString("film")
Set objRS = Connect.Execute(strSQL)
Response.Write objRS("Recension")
End if
%>
UlfT skrev:
Tex så här:
<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("filmer.mdb")&";" If len(Request.QueryString("film")) = 0 Then Response.Write "frågade inget" Else strSQL = "SELECT * FROM film WHERE id = "& Request.QueryString("film") Set objRS = Connect.Execute(strSQL) Response.Write objRS("Recension") End if %>
:bire :birp :e
Tack m8!
-> Ekström
Du har kvar en "End If" för mycket. Kanske bäst att påpeka det så Gardell vet varför han får felmeddelanden ;)
UlfT skrev:
-> Ekström
Du har kvar en "End If" för mycket. Kanske bäst att påpeka det så Gardell vet varför han får felmeddelanden ;)
Något sånt kan jag faktiskt räkna ut själv du! :x
Vet inte om det var detta du var ute efter men som jag gjort det kan du använda samma sak till att visa både länkarna och recensionerna...
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("filmer.mdb")&";"
If len(Request.QueryString("film")) = 0 Then
strSQL = "SELECT * FROM film ORDER BY id DESC
Set objRS = Connect.Execute(strSQL)
Do while not objRS.EOF
Response.Write "<a href=film.asp?id=" & objRS("id") & ">" & objRS("[b]filmtite[/b]-byt ut mot fältnamnet i din databas") & "</a>"
objRS.MoveNext
Loop
Else
strSQL = "SELECT * FROM film WHERE id = "& Request.QueryString("film")
Set objRS = Connect.Execute(strSQL)
Response.Write objRS("Recension")
End if
%>
modifiera recordset?
kan man ta bort en rad i ett recordset?
set rs = conn.execute(strSQL)
if rs("nått") = 1 Then
rs.deleterow
finns det något i denna stilen?