Database forbindelse
Jeg har en formel på min hjemmeside hvor brugerne kan dufylde nogle felter og når man trykker gem, skal den gemme oplysningerne i en acces database men hvorfor gør den ikke det. Her er scriptet:<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select> år </td>
</tr>
<tr>
<td><input name="submit" type="submit" value="Gem"></td>
<td> </td>
</tr>
</table>
</form>
<%
End If
%>
<%
If Request.QueryString("step") = 2 Then
If Len(Request.Form("billetnr")) <> 3 Then
Response.Write("Billet nummeret SKAL være et tre-cifret tal")
ElseIf Request.Form("fornavn") = "" Then
Response.Write("Du har ikke indtastet et fornavn")
ElseIf Request.Form("efternavn") = "" Then
Response.Write("Du har ikke indtastet noget efternavn")
ElseIf Len(Request.Form("mobilnr")) <> 8 Then
Response.Write("Det indtastede mobilnummer er ikke gyldigt")
ElseIf Instr(Request.Form("email"), "@") = 0 Then
Response.Write("Det indtastede er ikke en gyldigt email")
Else
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open"DRIVER={Microsoft Access Driver(*.mdb)}; DBQ="&Server.MapPath("database.mdb")
'Set RS = Server.CreateObject("ADODB.Recordset")
'SQL = "Select * FROM tabel"
'RS.Open SQL, Conn,3,3
'RS.AddNew
'RS("billetnr") = Request.Form("billetnr")
'RS("fornavn") = Request.Form("fornavn")
'RS("efternavn") = Request.Form("efternavn")
'RS("mobilnr") = Request.Form("mobilnr")
'RS("dag") = Request.Form("dag")
'RS("maaneder") = Request.Form("maaneder")
'RS("aar") = Request.Form("arr")
'RS.Update
End If ' Len(Request.Form("billetnr")) <> 3
End IF ' Request.QueryString("step") = 2
%>
<font color="#0000CC">By Ameq</font><font color="#FF0000"> <a href="http://ameq.dk">http://ameq.dk</a></font>
</body>
</html>
