<%Set RS=Conn.Execute("Select * From bild Order By id desc") If RS.EOF Then%> Inga vykort inlagd <%Else Do Until RS.EOF%>  " target="_top">" border="1" width="95" height="55">  <%RS.MoveNext Loop End If RS.Close Set RS=Nothing%>
<%If Request.QueryString("id") = "" Then Set RS=Conn.Execute("SELECT Count(*) AS antal FROM bild") antal = RS("antal") RS.Close Set RS = Nothing Randomize slump = Int(RND*antal) - 1 Set Bild = Conn.Execute("SELECT * FROM bild") If Bild.EOF Then%> Inga vykort inlagd <%Else Do While slump >= 0 Bild.MoveNext slump = slump - 1 Loop Set Vykort=Conn.Execute("Select * From bild Where id=" & Bild("id")) End If%>
<%If Not Bild.EOF Then%>" width="334" height="220"><%End If%>
<%End If%>" name="vykortet" onSubmit="return Vykort()">
Ditt namn:

Din E-post:
Meddelande:
Mottagarens namn:

Mottagarens E-post:
 
<%Bild.Close Set Bild = Nothing Else Set Vykort=Conn.Execute("Select * From bild Where id=" & Request.QueryString("id"))%>
" width="334" height="220">
" name="vykortet" onSubmit="return Vykort()">
Ditt namn:

Din E-post:
Meddelande:
Mottagarens namn:

Mottagarens E-post:
 
<%Vykort.Close Set Vykort = Nothing End If Conn.Close Set Conn = Nothing%>