Så kan du da lige se hele koden
<!--#include file="openDB.asp" -->
<!--#include file="dbCall.asp" -->
<form method="post">
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"> <html>
<head>
<title>Spørgeskema</title>
<meta name="generator" content="TSW WebCoder">
</head>
<body>
<%
id = Request.Querystring("id")
border = 0
if id = "" Then
id = 1
End If
svm = Array(id)
spl = Split(svm,",")
%>
<table align="center" border="<%Response.Write border%>"><td align="center" valign="top" height="80"><h2>
<%Response.Write spl(0)%>
</h2><tr><td align="center"><table align="center" border="<%Response.Write border%>"><td align="left" valign="top" height="20">
Fuldstændig Uenig
</td><td colspan="50" align="center"></td><td valign="top" align="right">
Fuldstændig Enig
</td></table><tr valign="top" align="center" ><td height="50"><table border="<%Response.Write border%>" align="center">
<%
Dim t
For t = 1 to spl(1)
%> <td align="center"><%Response.Write t%><br><input type='radio' name="<%Response.Write clng(id)%>" value="<%Response.Write t%>"></td> <%
Next
%>
</table></td></tr><tr><td><table align="center" border="<%Response.Write border%>"><td>
<%
if id > 1 Then
%>
<input type="Submit" value="Forrige" onClick="this.form.action='index.asp?id=<%Response.Write id-1%>';this.form.submit();">
<%
End If
%>
<td width="100"></td><td>
<%
If clng(id) < clng(Antal) Then
%>
<input type="Submit" value="Næste" onClick="this.form.action='index.asp?id=<%Response.Write id+1%>';this.form.submit();">
<%
Else
%>
Statestik
<%
End If
%>
</td></td></table></td></tr></td></tr></td></table>
<%
IF id <> 1 Then
var= Session("svm") & "," & Request.Form(1)
Response.Write var
end if
%>
</body>
</html></form>