Með case-skipunum er hægt að kalla fram nokkrar “síður” á einni síðu.

Þetta sem hér kemur á eftir er einföld útgáfa af gestabók sem ég bjó til.
Ég veit að við erum að ræða um poll hér en þú ættir að geta notað sömu grunnskipanirnar fyrir þetta.

<!– Hér byrjar innsetning á einhverju –>
<blockquote>
<%
pid = request(“pid”)
select case pid
%>
<%case “view”

Dim Nafn,Email,URL,Dags,Comment


Nafn = request(“Nafn”)
Email = request(“Email”)
URL = request(“URL”)
Dags = request(“Dags”)
Comment = request(“Comment”)

%>
<form name=“form1” method=“post” action=“Guest.asp?pid=senda”>
<table width=“100%” border=“0”>
<input type=“hidden” name=“Nafn” value=“<%= Nafn %>”>
<input type=“hidden” name=“Email” value=“<%= Email %>”>
<input type=“hidden” name=“URL” value=“<%= URL %>”>
<input type=“hidden” name=“Dags” value=“<%= Dags %>”>
<input type=“hidden” name=“Comment” value=“<%= Comment %>”>
<tr>
<td align=“left” valign=“top” width=“50%”>
<blockquote>
<p><b><font face=“Verdana, Arial, Helvetica, sans-serif” size=“1”><u>Eru upplýsingarnar réttar?</u>
</b><br><br>
Nafn: <b><% = Nafn %></b><br>
Netfang: <b><% = Email %></b><br>
Heimasíða: <b><% = URL %></b><br>
Dags: <b><% = Dags %></b><br>
Skilaboð: <b><% = Comment %></b><br>
</font></td>
</tr>
</table>
<p>
<input type=“submit” name=“Submit” value=“Samþykkja”>
<input type=“button” value=“Breyta” Onclick=“javascript:history.go(-1);”>
</p>
</form>
<% case “senda”

Nafn = request(“Nafn”)
Email = request(“Email”)
URL = request(“URL”)
Dags = request(“Dags”)
Comment = request(“Comment”)

set rs = objcon.execute(“insert into Gestir (Nafn, Email, URL, Dags, Comment) Values('” & Nafn & “','” & Email & “','” & URL & “','” & Dags & “','” & Comment & “')”)
objcon.close
%>
<%
response.write “Aðgerð tókst!<br>”
response.write “<a href=Guest.asp>Til baka!</a>”
%>

<%
Case Else
%>
<%

If Request.QueryString(“pages”) = “” Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString(“pages”))
End If


If Request.QueryString(“order”) = “” Then
strOrderBy = “GuestID”
Else
strOrderBy = Request.QueryString(“order”)
End If

SQL = “SELECT * FROM Gestir ORDER BY GuestID desc ;”
Set objRec = Server.CreateObject (“ADODB.Recordset”)
Objrec.PageSize = iPageSize
objrec.CacheSize = iPageSize
objRec.Open SQL, objcon, adOpenStatic, adLockReadOnly, adCmdText
iPageCounter = objrec.PageCount
If iPageCurrent > iPageCounter Then iPageCurrent = iPageCounter
If iPageCurrent < 1 Then iPageCurrent = 1

‘ Check page count to prevent bombing when zero results are returned!
If iPageCounter = 0 Then
Response.Write “Það eru ekki fleiri nöfn í gestabókinni!”

Else
’ Move to the selected page
objrec.AbsolutePage = iPageCurrent

end if

iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objrec.EOF
%>
<table width=“100%” border=“0”>
<tr>
<td align=“left” valign=“top” width=“50%”><div align=“left”>
<blockquote><font face=“Verdana, Arial, Helvetica, sans-serif” size=“1”>
Nafn: <b><% = objrec(“Nafn”) %></b><br>
Netfang: <b><a href=“mailto:<% = objrec(”Email“) %>”><% = objrec(“Email”) %></a></b><br>
Heimasíða: <b><a href="http://<% = objrec(“URL”) %>“ target=”_blank“><% = objrec(”URL“) %></a></b><br>
Dags: <b><% = objrec(”Dags“) %></b><br>
Skilaboð: <b><% = objrec(”Comment“) %></b><hr>
</font></blockquote></td>
<%
objrec.movenext
iRecordsShown = iRecordsShown + 1
loop
%></div>
</tr>

</table>
<table width=”90%“ cellspacing=”0“ cellpadding=”0“>
<tr>
<% if request(”pages“) > 1 then %>
<td valign=”bottom“ align=”left“ height=”14“ colspan=”4“><a href=”<% =Request.ServerVariables(“SCRIPT_NAME”)%>?pages=1&pid=news&fid=<%=fid%>“><font face=”verdana“ size=”1“><img src=”img/back.gif“ border=”0“> Til baka</a></font></td>
<%
if ipagecurrent = ipagecounter then
else
%>

<td valign=”bottom“ colspan=”4“><font size=”1“ ><div align=”left“><a href=”<% =Request.ServerVariables(“SCRIPT_NAME”)%>?pages=<% = ipagecurrent + 1 %>&pid=news&fid=<%=fid%>“>Næstu 3 <img src=”img/notepad.gif“ border=”0“></a></font></td>
<% end if %>


</td>
<% else
if ipagecounter = 1 then
else
%>

<td valign=”bottom“ colspan=”4“><div align=”left“><font size=”1“><a href=”<% =Request.ServerVariables(“SCRIPT_NAME”)%>?pages=<% = ipagecurrent + 1 %>&pid=news&fid=<%=fid%>“>Næstu 3 <img src=”img/notepad.gif“ border=”0“></a></font></td>
<%
end if
end if
%>


</td>

</tr>
</table>
</blockquote>
<hr>
<!–Hér byrjar form–><br>
<div align=”center“><font face=”Verdana“ size=”1“><b><u>Skrifa í gestabókina!</u></b></font></div><br><br>
<form action=”Guest.asp?pid=view“ method=”post“ name=”Uppskr“ onSubmit=”return enginnTexti()“>
<table border=”0“ width=”400“>
<tr>
<td width=”200“ align=”right“> <font face=”Verdana“ size=”1“><b>Nafn:</b>
</font></td>
<td width=”200“> <font face=”Verdana“ size=”1“>
<input file=”text“ name=”Nafn“ size=”40“ maxlength=”50“>
</font></td>
</tr>
<tr>
<td width=”200“ align=”right“> <font face=”Verdana“ size=”1“><b>Netfang:</b>
</font></td>
<td width=”200“> <font face=”Verdana“ size=”1“>
<input file=”text“ name=”Email“ size=”40“ maxlength=”50“>
</font></td>
</tr>
<tr>
<td width=”200“ align=”right“> <font face=”Verdana“ size=”1“><b>Heimasíða:</b>
</font></td>
<td width=”200“> <font face=”Verdana“ size=”1“>
<input file=”text“ name=”URL“ size=”40“ maxlength=”50“>
</font></td>
</tr>
<tr>
<td width=”200“ align=”right“> <font face=”Verdana“ size=”1“><b>Dags:</b>
</font></td>
<td width=”200“> <font face=”Verdana“ size=”1“>
<input file=”text“ name=”Dags“ size=”40“ maxlength=”50“ Value=”<%=Date()%>“>
</font></td>
</tr>
<tr>
<td width=”200“ align=”right“ valign=”top“> <font face=”Verdana“ size=”1“><b>Skilaboð:</b>
</font></td>
<td width=”200“> <font face=”Verdana“ size=”1“>
<textarea name=”Comment“ cols=”40“ rows=”5“ class=”text"