|
walrus -> RE: Match the Face to the Place! (3/31/2003 2:30:04)
|
<%
' 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(" input_ConnectionString" )
FP_DumpError strErrorUrl, " Cannot open database"
fp_rs.Open " Results" , 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(21)
Dim arFormDBFields0(21)
Dim arFormValues0(21)
arFormFields0(0) = " Mobile"
arFormDBFields0(0) = " Mobile"
arFormValues0(0) = Request(" Mobile" )
arFormFields0(1) = " DSS"
arFormDBFields0(1) = " DSS"
arFormValues0(1) = Request(" DSS" )
arFormFields0(2) = " Agent"
arFormDBFields0(2) = " Agent"
arFormValues0(2) = Request(" Agent" )
arFormFields0(3) = " Town"
arFormDBFields0(3) = " Town"
arFormValues0(3) = Request(" Town" )
arFormFields0(4) = " Street"
arFormDBFields0(4) = " Street"
arFormValues0(4) = Request(" Street" )
arFormFields0(5) = " Period"
arFormDBFields0(5) = " Period"
arFormValues0(5) = Request(" Period" )
arFormFields0(6) = " Desciption"
arFormDBFields0(6) = " Desciption"
arFormValues0(6) = Request(" Desciption" )
arFormFields0(7) = " Day"
arFormDBFields0(7) = " Day"
arFormValues0(7) = Request(" Day" )
arFormFields0(8) = " Building"
arFormDBFields0(8) = " Building"
arFormValues0(8) = Request(" Building" )
arFormFields0(9) = " Rent"
arFormDBFields0(9) = " Rent"
arFormValues0(9) = Request(" Rent" )
arFormFields0(10) = " Email"
arFormDBFields0(10) = " Email"
arFormValues0(10) = Request(" Email" )
arFormFields0(11) = " Contact"
arFormDBFields0(11) = " Contact"
arFormValues0(11) = Request(" Contact" )
arFormFields0(12) = " Type"
arFormDBFields0(12) = " Type"
arFormValues0(12) = Request(" Type" )
arFormFields0(13) = " City"
arFormDBFields0(13) = " City"
arFormValues0(13) = Request(" City" )
arFormFields0(14) = " Phone"
arFormDBFields0(14) = " Phone"
arFormValues0(14) = Request(" Phone" )
arFormFields0(15) = " Username"
arFormDBFields0(15) = " Username"
arFormValues0(15) = Request(" Username" )
arFormFields0(16) = " Year"
arFormDBFields0(16) = " Year"
arFormValues0(16) = Request(" Year" )
arFormFields0(17) = " Term"
arFormDBFields0(17) = " Term"
arFormValues0(17) = Request(" Term" )
arFormFields0(18) = " Month"
arFormDBFields0(18) = " Month"
arFormValues0(18) = Request(" Month" )
arFormFields0(19) = " Students"
arFormDBFields0(19) = " Students"
arFormValues0(19) = Request(" Students" )
arFormFields0(20) = " Postcode"
arFormDBFields0(20) = " Postcode"
arFormValues0(20) = Request(" Postcode" )
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables(" HTTP_USER_AGENT" ) <> " " Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables(" HTTP_USER_AGENT" ), " Browser_type"
End If
If Request.ServerVariables(" REMOTE_HOST" ) <> " " Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables(" REMOTE_HOST" ), " Remote_computer_name"
End If
FP_SaveFieldToDB fp_rs, Now, " Timestamp"
If Request.ServerVariables(" REMOTE_USER" ) <> " " Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables(" REMOTE_USER" ), " User_name"
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:" ,_
" input.asp" ,_
" Return to the form."
End If
End If
%>
|
|
|
|