Altså, jeg har: admin.asp?opret. Den ser således ud:
<% '--- Nyheder Ret ---
Elseif mode="opret" then %>
<table align="center" bgcolor="#206090" width="510" cellspacing="1" cellpadding="2">
<tr>
<td bgcolor="#206090" width="510">
<center>
<strong>Opret en stemmeboks</strong>
</center>
</td>
</tr>
</table>
<BR>
<CENTER>
<form action="admin.asp?mode=oprettet" method="post">
<table width="500" align="center" border="0" cellspacing="0" cellpadding="10">
<TR><TD>Spørgsmål:</TD><TD><input name="beskrivelse" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 1</TD><TD><input name="valg1" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 2</TD><TD><input name="valg2" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 3</TD><TD><input name="valg3" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 4</TD><TD><input name="valg4" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 5</TD><TD><input name="valg5" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<tr>
<TD ALIGN="center"><input name="submit" type="submit" onblur="this.style.filter = 'Alpha(Opacity=60)'" onfocus="this.style.filter = 'Alpha(Opacity=100)'" class="button" onMouseOver="this.className='buttonhover'" onMouseOut="this.className='button'" value="Rediger Nyheden"></td><TD ALIGN="center"><INPUT TYPE="reset" VALUE="Slet og Start Forfra" NAME="reset" CLASS="button" onblur="this.style.filter = 'Alpha(Opacity=60)'" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onmouseover="this.className='buttonhover'" onmouseout="this.className='button'"></td>
</tr>
</table></center></form>
<BR>
<center><a href="admin.asp">Tilbage</a></center>
Så har jeg: admin.asp?mode=oprettet. Den ser sådan ud:
<%
Else if mode="oprettet" then
%>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("stem.mdb") & ";UID=admin;PWD=;"
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
beskrivelse = Trim(Request.Form("beskrivelse"))
valg1 = Trim(Request.Form("valg1"))
valg2 = Trim(Request.Form("valg2"))
valg3 = Trim(Request.Form("valg3"))
valg4 = Trim(Request.Form("valg4"))
valg5 = Trim(Request.Form("valg5"))
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM T_Vote WHERE (ID = 0)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("beskrivelse") = beskrivelse
rs("valg1") = valg1
rs("valg2") = valg2
rs("valg3") = valg3
rs("valg4") = valg4
rs("valg5") = valg5
rs.Update
End If
rs.Close
Set rs = Nothing
End If
%>
Stemmeboksen er nu oprettet. Du kan indsætte boksen hvor du vil, skriv blot følgende kode:
<% Stem()%>
