Her er koden:
Databasen ligger i samme bib.
Sitet ligger i /wwwroot/hk/
(Som sagt: Jeg fatter NADDA af det der VBscript) ;)
<%
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("dbKn.mdb")
%>
<%response.buffer = true %>
<html>
<head>
<title>test</title>
</head>
<body >
<h2>Fejl!</h2>
<%
if request.form("navn") = "" then
Response.write "Der er ikke indtastet noget navn"
%><br><br><a href="java script:history.back()"><b>Forrige side</b></a>
<%
elseif request.form("adresse") = "" then
Response.write "Der er ikke indtastet en adresse"
%><br><br><a href="java script:history.back()"><b>Forrige side</b></a>
<%
elseif request.form("postnr") = "" then
Response.write "Der er ikke indtastet postnr"
%><br><br><a href="java script:history.back()"><b>Forrige side</b></a>
<%
elseif request.form("town") = "" then
Response.write "Der er ikke indtastet nogen by"
%>
<br><br><a href="java script:history.back()"><b>Forrige side</b></a>
<%
else
Set connection = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject ("ADODB.Recordset")
connection.Open Session("Connect")
connection.Execute("INSERT INTO v_mic ( navn, adresse, postnr, town, email) VALUES ('" & Request.Form("navn") &"', '" & Request.Form("adresse") &"', '" & Request.Form("postnr") &"', '" & Request.Form("town") &"', '" & Request.Form("email") &"')")
Response.redirect "tak.asp"
end if
%>
</body>
</html>
