home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / _fpclass / fpdbform.inc next >
Text File  |  2003-10-07  |  3KB  |  99 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.     Dim fp_Debug
  29.     fp_Debug = False
  30.  
  31.     Select Case rs(strDBField).Type
  32.         Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or  adUnsignedInt Or adUnsignedBigInt
  33.             rs(strDBField) = CInt(strField)
  34.         Case adSingle Or adDecimal Or adNumeric 
  35.             rs(strDBField) = CSng(strField)
  36.         Case adDouble
  37.             rs(strDBField) = CDbl(strField)
  38.         Case adCurrency
  39.             rs(strDBField) = CCur(strField)
  40.         Case adBoolean
  41.             rs(strDBField) = CBool(strField)
  42.         Case adDate Or adDBDate Or adDBTime or adDBTimeStamp
  43.             rs(strDBField) = CDate(strField)
  44.         Case Else
  45.             rs(strDBField) = CStr(strField)
  46.     End Select
  47.  
  48.     If fp_Debug Then
  49.         strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """"
  50.     Else
  51.         strError = "Cannot save value to database field"
  52.     End If
  53.  
  54.     FP_DumpError strErrorUrl, strError 
  55.     Err.Clear
  56. End Function
  57.  
  58. Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2)
  59.     Response.Write "<html>" & vbCrLf
  60.     Response.Write "<head>" & vbCrLf
  61.     Response.Write "<meta  http-equiv=""Content-Type"" content=" & szCharSet & ">" & vbCrLf
  62.     Response.Write "<title> " & szTitle & "</title>" & vbCrLf
  63.     Response.Write "</head>" & vbCrLf
  64.     Response.Write "<body>" & vbCrLf
  65.     Response.Write "<h1> " & szTitle & "</h1>" & vbCrLf
  66.     Response.Write "<p> " & szMsg1 &"</p>" & vbCrLf
  67.     Response.Write "<p>" & vbCrLf
  68.     For Each item in Request.Form 
  69.         If item <> "VTI-GROUP" Then
  70.             Response.Write "<b>" & item & "</b>" & ": " & Server.HTMLEncode(Request.Form(item)) & "<BR>" & vbCrLf
  71.         End If
  72.     Next 
  73.     Response.Write "</p>" & vbCrLf
  74.     Response.Write "<p> <a href=""" &  szUrl & """>" & szMsg2 & "</a></p>" & vbCrLf
  75.     Response.Write "</body>" & vbCrLf
  76.     Response.Write "</html>" & vbCrLf
  77.     Response.End
  78. End Function
  79.  
  80. Function FP_DumpError(strErrorUrl, strMsg)
  81.     Dim fp_Debug
  82.     fp_Debug = False
  83.     If Err.Number <> 0 Then
  84.         fp_conn.Close
  85.         If strErrorUrl <> "" Then
  86.             Response.Redirect strErrorUrl
  87.         Else
  88.             Response.Write "<b> " & Server.HTMLEncode(strMsg) & "</b><p>"
  89.             If fp_Debug Then
  90.                 Response.Write "Error Description: " & Server.HTMLEncode(Err.Description) & "<p>"
  91.                 Response.Write "Error Number: " & Server.HTMLEncode(Err.Number)  & "<p>"
  92.                 Response.Write "Error Source: " & Server.HTMLEncode(Err.Source) & "<p>"
  93.             End If
  94.             Response.End
  95.         End If
  96.     End if
  97. End Function
  98. %>
  99.