Jo..d et har jeg jeg godt nok..
Men den skriver nu nye fejl.. Fatter godt nok minus af det her.. G*GGGG*
<% @language=VBScript %>
<html>
<head>
<title>Sound Of Memphis CD Bestilling</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<div align="center"></div>
<p align="center"><font size="5">Sound Of Memphis CD Bestilling</font></p>
<table width="100%" border="0" cellspacing="2" cellpadding="2" align="center" height="80%">
<tr>
<%
fornavn = request.form("f_fornavn")
efternavn = request.form("f_efternavn")
email = request.form("f_email")
Set objConn = server.createobject("adodb.connection")
objconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../CDBestilling/database.mdb")
set objRS=server.createobject("ADODB.recordset")
%>
<% If fornavn = "" Then
End If
%>
<p align=center> <font size="5"> Hvis du, som arrangører eller som fan af 50'er Rock'n'Roll, ønsker at bestille
Sound Of Memphis' Demo CD. <br>Så udfyld forneden, så sender vi den hurtigst muligt:</font> </p>
<form action="../CDBestilling/maildansk.asp" method="post">
<p> Fornavn <input type="text" name="f_fornavn" ></p><br>
<p> Efternavn<input type="text" name="f_efternavn"></p><br>
<p> Adresse<input type="text" name="f_adresse"></p><br>
<p> Postnummer<input type="text" name="f_postnummer"></p><br>
<p> By<input type="text" name="f_by"></p><br>
<p> Telefonnumer<input type="text" name="f_telefonnummer"></p><br>
<p> Email adresse<input type="text" name="f_email" ></p><br>
<input type="submit" value="Submit" >
</form>
<%
Fornavn = request.form("f_fornavn)
Efternavn = request.form("f_efternavn)
Adresse = request.form("f_adresse")
Postnummer = request.form("f_postnummer)
By = request.form("f_by)
Telefonnummer = request.form("f_telefonnummer)
Email = request.form("f_email)
Function SQLstreng
strSQL = "INSERT INTO Bestilling(Fornavn,Efternavn,Adresse,Postnummer,[By],Telefonnummer,Email) values ('"& Fornavn & "','" & Efternavn &"','" & Adresse &"','" & Postnummer &"','" & By &"','" & Telefonnummer &"','" & email &"')"
objConn.execute(strSQL)
response.write strSQL
response.write "Takker for din bestilling. Vi sender den hurtigst muligt"
objConn.close
Set objConn = nothing
End Function
If fornavn <> "" Then
SQLstreng
End If
%>
</td>
</tr>
</table>
</body>
</html>
Har lige uploadet igen
