4 svar · 320 visningar · startad av Siluett
"e" finns i min tabell som ett namn. Om "e" har ett id i samma tabell så vill jag att det ska bli en länk till "e", annars ska det bara skriva ut namnet på "e".
såhär ser min "nydörjarkod" ut
<%
Dim e
If Not RecSet.EOF Then
e = "" & RecSet("e")
Else
Do until RecSet.EOF
Set RecSet = Conn.Execute("Select * From hingstar")
If Not isnull (RecSet("e")) Then
e = "" & RecSet("e")
e = Replace(e, RecSet("e"), "<a href=""" & RecSet("id") & """>" & RecSet("e") & "</a>")
End If
RecSet.MoveNext
Loop
Else
Response.Write RecSet("e")
End If
%>
och då får jag syntax error på det sista
RecSet.MoveNext
Loop
Else
Response.Write RecSet("e")
End If
hjälp?
Det kändes så rörigt, är det något liknande du menar?
'Connection osv.
Set RecSet = Conn.Execute("Select e,id From hingstar")
If Not RecSet.EOF Then
Do until RecSet.EOF
if RecSet("e")<>"" then
Response.write "<a href="& RecSet("id") &">"& RecSet("e") &"</a>"
else
Response.write RecSet("e")
end if
RecSet.MoveNext
Loop
else
Response.write "Inga poster"
end if
Säkert. ;)
Såhär menar jag:
\<%
Set RecSet = Conn.Execute("Select * From hingstar Where e='" & trim(Request.Querystring("namn")) & "'")
Dim e
If Not RecSet.EOF Then
e = RecSet("e")
Else
e = ""
End If
Set RecSet = Conn.Execute("Select * From hingstar")
e = Replace(e, RecSet("namn"), "<a href=?do=visa&id=" & RecSet("id") & ">" & RecSet("e") & "</a>")
Else
Response.Write RecSet("e")
RecSet.Close
Set RecSet = Nothing
End If
%>
MEN problemet är att det nu inte blir en länk av det... men inga felmedd dyker upp (phu!). namnet visas, men det länkar inte till namnets id.