Hej bacardil,
Jeg forstår ikke helt, hvad du skriver. Så nu ligger jeg på mine grædende knæ :-(...
Her er et eksempel på koden fra en frontpage-formular.
Hvad skal jeg gøre, for at id-nummeret kommer fra Access-databasen og tilbage til brugeren?
<%
\' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
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, \"Cannot create connection\"
Set fp_rs = Server.CreateObject(\"ADODB.Recordset\")
FP_DumpError strErrorUrl, \"Cannot create record set\"
fp_conn.Open Application(\"databasetest_ConnectionString\")
FP_DumpError strErrorUrl, \"Cannot open database\"
fp_rs.Open \"Resultater\", fp_conn, 1, 3, 2 \' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, \"Cannot open record set\"
fp_rs.AddNew
FP_DumpError strErrorUrl, \"Cannot add new record set to the database\"
Dim arFormFields0(1)
Dim arFormDBFields0(1)
Dim arFormValues0(1)
arFormFields0(0) = \"T1\"
arFormDBFields0(0) = \"T1\"
arFormValues0(0) = Request(\"T1\")
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\"), \"Web-browsertype\"
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, \"Cannot update the database\"
fp_rs.Close
fp_conn.Close
FP_FormConfirmation \"text/html; charset=windows-1252\",_
\"Form Confirmation\",_
\"Thank you for submitting the following information:\",_
\"databasetest.asp\",_
\"Return to the form.\"
End If
End If
%>
<html>
<head>
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>databasetest</title>
<meta name=\"Microsoft Border\" content=\"none\">
</head>
<body>
<form method=\"POST\" action=\"--WEBBOT-SELF--\">
<!--webbot bot=\"SaveDatabase\" startspan suggestedext=\"asp\"
s-dataconnection=\"databasetest\" s-recordsource=\"Resultater\"
u-database-url=\"../fpdb/databasetest.mdb\"
s-builtin-fields=\"REMOTE_HOST HTTP_USER_AGENT Timestamp REMOTE_USER\"
s-builtin-dbfields=\"Navn_på_fjerncomputer Web-browsertype Tidsstempel Brugernavn\"
s-form-fields=\"T1\" s-form-dbfields=\"T1\"
u-asp-include-url=\"../_fpclass/fpdbform.inc\" --><input TYPE=\"hidden\" NAME=\"VTI-GROUP\" VALUE=\"0\"><!--#include file=\"../_fpclass/fpdbform.inc\"--><!--webbot
bot=\"SaveDatabase\" endspan -->
<p><input type=\"text\" name=\"T1\" size=\"20\"></p>
<p><input type=\"submit\" value=\"Send\" name=\"B1\"><input type=\"reset\" value=\"Nulstil\" name=\"B2\"></p>
</form>
</body>
</html>
