<%
Function FP_SaveFormFields(rs, rgFormFields, rgDBFields)
On Error Resume Next
Err.Clear
Dim i
For i = 0 To UBound(rgFormFields)
FP_SaveFormField rs, rgFormFields(i), rgDBFields(i)
Next
Err.Clear
End Function
Function FP_SaveFormField(rs, strField, strDBField)
On Error Resume Next
Err.Clear
If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then
Exit Function
End If
FP_SaveFieldToDB rs, Request.Form(strField), strDBField
Err.Clear
End Function
Function FP_SaveFieldToDB(rs, strField, strDBField)
On Error Resume Next
Err.Clear
Select Case rs(strDBField).Type
Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or adUnsignedInt Or adUnsignedBigInt
rs(strDBField) = CInt(strField)
Case adSingle Or adDecimal Or adNumeric
rs(strDBField) = CSng(strField)
Case adDouble
rs(strDBField) = CDbl(strField)
Case adCurrency
rs(strDBField) = CCur(strField)
Case adBoolean
rs(strDBField) = CBool(strField)
Case adDate Or adDBDate Or adDBTime or adDBTimeStamp
rs(strDBField) = CDate(strField)
Case Else
rs(strDBField) = CStr(strField)
End Select
strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """"
FP_DumpError strErrorUrl, strError
Err.Clear
End Function
Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2)
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write " " & szTitle & "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write " " & szTitle & "
" & vbCrLf
Response.Write " " & szMsg1 &"
" & vbCrLf
Response.Write "" & vbCrLf
For Each item in Request.Form
If item <> "VTI-GROUP" Then
Response.Write "" & item & "" & ": " & Request.Form(item) & "
" & vbCrLf
End If
Next
Response.Write "
" & vbCrLf
Response.Write " " & szMsg2 & "
" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.End
End Function
Function FP_DumpError(strErrorUrl, strMsg)
If Err.Number <> 0 Then
fp_conn.Close
If strErrorUrl <> "" Then
Response.Redirect strErrorUrl
Else
Response.Write " " & strMsg & ""
Response.Write "Error Description: " & Err.Description & "
"
Response.Write "Error Number: " & Err.Number & "
"
Response.Write "Error Source: " & Err.Source & "
"
Response.End
End If
End if
End Function
%>