home *** CD-ROM | disk | FTP | other *** search
/ 207.233.110.77 / 207.233.110.77.tar / 207.233.110.77 / vbasic / _fpclass / fpdbform.inc next >
Text File  |  2001-08-30  |  3KB  |  89 lines
  1. <%
  2. Function FP_SaveFormFields(rs, rgFormFields, rgDBFields)
  3.     On Error Resume Next
  4.     Err.Clear
  5.  
  6.     Dim i
  7.     For i = 0 To UBound(rgFormFields)
  8.         FP_SaveFormField rs, rgFormFields(i), rgDBFields(i)
  9.     Next 
  10.     Err.Clear
  11. End Function
  12.  
  13. Function FP_SaveFormField(rs, strField, strDBField)
  14.     On Error Resume Next
  15.     Err.Clear
  16.  
  17.     If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then
  18.         Exit Function
  19.     End If
  20.  
  21.     FP_SaveFieldToDB rs, Request.Form(strField), strDBField    
  22.     Err.Clear
  23. End Function
  24.  
  25. Function FP_SaveFieldToDB(rs, strField, strDBField)
  26.     On Error Resume Next
  27.     Err.Clear
  28.  
  29.     Select Case rs(strDBField).Type
  30.         Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or  adUnsignedInt Or adUnsignedBigInt
  31.             rs(strDBField) = CInt(strField)
  32.         Case adSingle Or adDecimal Or adNumeric 
  33.             rs(strDBField) = CSng(strField)
  34.         Case adDouble
  35.             rs(strDBField) = CDbl(strField)
  36.         Case adCurrency
  37.             rs(strDBField) = CCur(strField)
  38.         Case adBoolean
  39.             rs(strDBField) = CBool(strField)
  40.         Case adDate Or adDBDate Or adDBTime or adDBTimeStamp
  41.             rs(strDBField) = CDate(strField)
  42.         Case Else
  43.             rs(strDBField) = CStr(strField)
  44.     End Select
  45.  
  46.     strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """"
  47.  
  48.     FP_DumpError strErrorUrl, strError 
  49.     Err.Clear
  50. End Function
  51.  
  52. Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2)
  53.     Response.Write "<html>" & vbCrLf
  54.     Response.Write "<head>" & vbCrLf
  55.     Response.Write "<meta  http-equiv=""Content-Type"" content=" & szCharSet & ">" & vbCrLf
  56.     Response.Write "<title> " & szTitle & "</title>" & vbCrLf
  57.     Response.Write "</head>" & vbCrLf
  58.     Response.Write "<body>" & vbCrLf
  59.     Response.Write "<h1> " & szTitle & "</h1>" & vbCrLf
  60.     Response.Write "<p> " & szMsg1 &"</p>" & vbCrLf
  61.     Response.Write "<p>" & vbCrLf
  62.     For Each item in Request.Form 
  63.         If item <> "VTI-GROUP" Then
  64.             Response.Write "<b>" & item & "</b>" & ": " & Server.HTMLEncode(Request.Form(item)) & "<BR>" & vbCrLf
  65.         End If
  66.     Next 
  67.     Response.Write "</p>" & vbCrLf
  68.     Response.Write "<p> <a href=""" &  szUrl & """>" & szMsg2 & "</a></p>" & vbCrLf
  69.     Response.Write "</body>" & vbCrLf
  70.     Response.Write "</html>" & vbCrLf
  71.     Response.End
  72. End Function
  73.  
  74. Function FP_DumpError(strErrorUrl, strMsg)
  75.     If Err.Number <> 0 Then
  76.         fp_conn.Close
  77.         If strErrorUrl <> "" Then
  78.             Response.Redirect strErrorUrl
  79.         Else
  80.             Response.Write "<b> " & strMsg & "</b><p>"
  81.             Response.Write "Error Description: " & Err.Description & "<p>"
  82.             Response.Write "Error Number: " & Err.Number  & "<p>"
  83.             Response.Write "Error Source: " & Err.Source & "<p>"
  84.             Response.End
  85.         End If
  86.     End if
  87. End Function
  88. %>
  89.