Hej Dan.
Tak for dit svar.
Jeg har faktisk allerede oprettet formularen og databasen. Den ligger her:
Formularen:
www.side4.dk/test.aspKildekoden:
<%
' FP_ASP ASP, der er genereret automatisk af en FrontPage-komponent. Undlad at redigere.
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Der kan ikke oprettes forbindelse."
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."
fp_conn.Open Application("test_ConnectionString")
FP_DumpError strErrorUrl, "Databasen kan ikke åbnes."
fp_rs.Open "Resultater", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."
fp_rs.AddNew
FP_DumpError strErrorUrl, "Der kan ikke føjes nye poster til databasen."
Dim arFormFields0(5)
Dim arFormDBFields0(5)
Dim arFormValues0(5)
arFormFields0(0) = "D3"
arFormDBFields0(0) = "D3"
arFormValues0(0) = Request("D3")
arFormFields0(1) = "D4"
arFormDBFields0(1) = "D4"
arFormValues0(1) = Request("D4")
arFormFields0(2) = "D5"
arFormDBFields0(2) = "D5"
arFormValues0(2) = Request("D5")
arFormFields0(3) = "D1"
arFormDBFields0(3) = "D1"
arFormValues0(3) = Request("D1")
arFormFields0(4) = "D2"
arFormDBFields0(4) = "D2"
arFormValues0(4) = Request("D2")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Navn_på_fjerncomputer"
End If
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Webbrowsertype"
End If
FP_SaveFieldToDB fp_rs, Now, "Tidsstempel"
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Brugernavn"
End If
fp_rs.Update
FP_DumpError strErrorUrl, "Databasen kan ikke opdateres."
fp_rs.Close
fp_conn.Close
FP_FormConfirmation "text/html; charset=windows-1252",_
"Formularbekræftelse",_
"Du har sendt følgende oplysninger:",_
"test.asp",_
"Vend tilbage til formularen."
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny side 1</title>
</head>
<body>
<form method="POST" action="--WEBBOT-SELF--" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="test" S-RecordSource="Resultater" U-Database-URL="fpdb/test.mdb" S-Builtin-Fields="REMOTE_HOST HTTP_USER_AGENT Timestamp REMOTE_USER" S-Builtin-DBFields="Navn_på_fjerncomputer Webbrowsertype Tidsstempel Brugernavn" S-Form-Fields="D3 D4 D5 D1 D2" S-Form-DBFields="D3 D4 D5 D1 D2" U-ASP-Include-Url="_fpclass/fpdbform.inc" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan i-checksum="40548" -->
<p> <!--webbot bot="Validation" b-value-required="TRUE" --><select size="1" name="D1">
<option value="uuu">uuu</option>
<option value="yyy">yyy</option>
<option value="iii">iii</option>
</select></p>
<p> <!--webbot bot="Validation" b-value-required="TRUE" --><select size="1" name="D2">
<option value="uuu">uuu</option>
<option value="yyy">yyy</option>
<option value="iii">iii</option>
</select></p>
<p> <!--webbot bot="Validation" b-value-required="TRUE" --><select size="1" name="D3">
<option value="uuu">uuu</option>
<option value="yyy">yyy</option>
<option value="iii">iii</option>
</select></p>
<p> <!--webbot bot="Validation" b-value-required="TRUE" --><select size="1" name="D4">
<option value="uuu">uuu</option>
<option value="yyy">yyy</option>
<option value="iii">iii</option>
</select></p>
<p> <!--webbot bot="Validation" b-value-required="TRUE" --><select size="1" name="D5">
<option value="uuu">uuu</option>
<option value="yyy">yyy</option>
<option value="iii">iii</option>
</select></p>
<p> </p>
<p><input type="submit" value="Send" name="B1"><input type="reset" value="Nulstil" name="B2"></p>
<input type="hidden" name="hjhhj" value="hjhjhj">
</form>
</body>
</html>
