Hvordan twister jeg den her?
Hey eksperterJeg er ved at lave en database forbindelse, men jeg får en fejl. Jeg ved godt at der er en, måske flere fejl i koden, men jeg har heller ikke så meget styr på det at sætte noget = med noget og skrive det igen, hvis i forstår det?
Nå men her er min kode:
<td valign="top" height="1%" class="bottom" bgcolor="white"><p><b>Citater</b> <a href="default.asp?showall=ja">åben alle</a> - <a href="default.asp?showall=nej">Gem</a></p></td>
<td valign="top" height="1%" class="bottom_left" bgcolor="white"><p><b>Lidt forskelligt</p></td>
<tr>
<td valign="top" width="50%">
<table border="0" width="100%">
<%
if request.querystring("showall") = "ja" then
visalle = "Select * from Citat order by id desc"
elseif request.querystring("showall") = "nej" then
visalle = "select top 5 from Citat order by id desc"
else
visalle = "Select * from Citat order by id desc"
end if
%>
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")
Conn.Open DSN
strSQL = " '" & visalle & "'"
Set rs = Conn.Execute(strSQL)
Do
%>
<tr>
<td bgcolor="white" valign="top"><p><i><%=rs("tekst")%></i></p></td>
</tr>
<tr>
<td bgcolor="white" valign="top"><font face="verdana" size="1" color="black"><b><%= rs("sagt_af") %></b></font></td>
</tr>
<%
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
Fejlen forkommer nok ved min if sætning:
<%
if request.querystring("showall") = "ja" then
visalle = "Select * from Citat order by id desc"
elseif request.querystring("showall") = "nej" then
visalle = "select top 5 from Citat order by id desc"
else
visalle = "Select * from Citat order by id desc"
end if
%>
Men jeg er ikke god til det med at skrive visalle = "Select * from Citat order by id desc" og derefter hente det ind igen. Her med '" & visalle & "'
Jeg vil gerne indrømme at det jeg har gjort er et VILDT gæt, men jeg håber at i kan hjælpe mig!!!
Hilsen en "asp programmer" det kan jeg jo nok ikke kalde mig da jeg ikke engang kan finde ud af det her.
