Her er ASP-scriptet til en Access database. Scriptet kan desværre ikke ses i aktion på hjemmesiden. Den er nede, mens jeg skifter webhotel.
Indsend siden: ###############################
<html>
<head>
<title>Sjov-vittig.dk</title>
<script language=javascript src="valider.js" type="text/javascript"></script>
</head>
<body background="images/baggrund.jpg">
<hr />
<div align="center">
<img src="images/logo001.gif" alt="Sjov og vittig logo" width="451" height="80" />
</div>
<hr />
<table width='950' units='pixel'>
<tr>
<td width="20">
</td>
<td width="750">
<div align="left">
<form onsubmit="return behandel_vittighed(this);"
method="post" action="modtag.asp" name="vitform">
<font size="4">
Skriv overskrift her: <br /><input type="text" size ="45" name="overskrift"><br />
Hvis du ikke skriver noget, placeres teksten "Uden overskrift" i feltet.<br /><br />
Skriv indsender her: <br /><input type="text" size ="45" name="indsender"><br />
Hvis du ikke skriver noget, placeres teksten "Anonym" i feltet.<br /><br />
Skriv vittighed her: <br /><textarea name="vittighed" cols="50" rows="10"></textarea><br /><br />
<input type="submit" value="Send."/>
<br /><br />
<input type="reset" value="Slet alle felter."/>
<input type="button" value="Slet feltet overskrift." onclick="document.vitform.overskrift.value='';">
<input type="button" value="Slet feltet vittighed." onclick="document.vitform.vittighed.value='';">
</font>
</form>
</td>
<td valign="top" align="right" width="180">
Tilbage til
<a href="index.html">startsiden.</a><br>
</td>
</tr>
</table>
<script language="javascript">
<!-- start skjule
function set_focus()
{
document.vitform.overskrift.focus();
}
set_focus() ; // Sætter markøren i overskrift feltet.
// slut skjule -->
</script>
</body>
</html>
Modtag siden: ###############################
<%@ language="vbscript" %>
<% option explicit %>
<!--#include virtual="/adovbs.inc"-->
<%
'Erklær de variable, tegnstrengene skal ligge i
dim overskrift
dim indsender
dim vittighed
'Indlæs tegnstrengene
overskrift = request("overskrift")
indsender = request("indsender")
vittighed = request("vittighed")
'Opdater databasen
dim Conn
dim DBPath
Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("/log/vittigheder.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&DBPath
dim obj_rs
set obj_rs = server.createobject("adodb.recordset")
obj_rs.open "tabel1", Conn, , adlockoptimistic, adcmdtable
obj_rs.addnew
obj_rs("overskrift") = overskrift
obj_rs("indsender") = indsender
obj_rs("dato") = date
obj_rs("vittighed") = vittighed
obj_rs.update
'Hent vittighedens nummer
dim nummer
do while not obj_rs.EOF
nummer = obj_rs("nummer")
obj_rs.movenext
loop
'Ryd op i ABO objekterne
obj_rs.close
set obj_rs = nothing
Conn.close
set Conn = nothing
%>
<html>
<head>
<title>Sjov-vittig.dk</title>
</head>
<body background="images/baggrund.jpg">
<hr />
<div align="center">
<img src="images/logo001.gif" alt="Sjov og vittig logo" width="451" height="80" />
</div>
<hr />
<table width='950' units='pixel'><tr><td width="340"></td><td width="300"><font size='4'>
Vittigheden er sendt til databasen. <br>
Den kan ses med det samme. <br>
Du har indsendt følgende:
<%
response.write "<br>Overskrift: " & overskrift
response.write "<br>Indsender: " & indsender
response.write "<br>Nummer: " & nummer
response.write "<br>Dato: " & date & "<br><br>"
'Vittigheden skal have indsat HTML-tags
vittighed = replace(vittighed, vbCrLf, "<br>")
response.write vittighed & "<br><br>"
'Træk en streg
response.write "<hr />"
%>
</td>
<td valign="top" align="right" width="310">
Tilbage til
<a href="index.html">startsiden.</a><br />
Brug browserens <br>
tilbageknap, hvis du <br>
vil tilbage til den <br>
den side du kom fra.<br>
</td></tr></table>
</body>
</html>
Med dette script, lægges dataene direkte ned i databasen fra hjememsiden.
