Hvad er der galt html- og asp-siden?
Hjælp.....hjælp...the_bma_man har hjulpet mig med nedenstående: Er der nogen som kan fortælle mig hvad der er galt. Jeg kan ikke få det til at køre.
Jeg har ikke sagt noget om skønheden - den må du selv fedte med :-)
Du har en database - anmeld.mdb
Den har en tabel - anmeldelse - med følgende felter
ID (autonummer)
afsendernavn (tekst)
overskrift (tekst)
Din formularside er her: (formular.html)
html>
<head>
<title>Superduper-formular-halløj.dk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<form name="anmeld" action="anmeld.asp" method="post">
Overskrift: <input type="text" name="overskrift"><br>
Afsender: <input type="text" name="afsnavn"><br>
<input type="submit" name="action" value="Gem"> <input type="reset" value="Rens">
</form>
</body>
</html>
Den side, der skal gemme i databasen samt udskrive indlæg i omvendt rækkefølge er her (anmeld.asp):
<%
Set myConn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/Database/Anmeld.mdb")
myConn.Open(strDSN)
strOverskrift = request.Form("overskrift")
strAfsenderNavn = request.Form("afsnavn")
strSubmit = request.Form("action")
if strSubmit = "Gem" then
strSQL = "INSERT INTO anmeldelse(afsendernavn, overskrift) values ('" & stroverskrift & "', '" & strAfsenderNavn & "')"
myConn.Execute(strSQL)
end if
strSQL = "SELECT * from anmeldelse order by ID desc"
set rs1 = myConn.Execute(strSQL)
%>
<html>
<head>
<title>Superduper-formular-halløj.dk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<%
if not rs1.EOF then
response.write("<TABLE><TR><TD>Id:</TH><TH>Indlæg fra:</TH><TH>Overskrift:</TH></TR>" & vbCrLf)
do until rs1.EOF
response.write("<TR><TD>" & rs1("ID") & "</TD><TD>" & rs1("afsendernavn") & "</TD><TD>" & rs1("overskrift") & "</TD></TR>" & vbCrLf)
rs1.MoveNext
loop
response.write("</TABLE>" & vbCrLf)
end if
rs1.Close
set rs1 = nothing
myConn.Close
set myConn = nothing
%>
</body>
</html>
