<% ' 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("ddg23_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Servicelog", 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(5) Dim arFormDBFields0(5) arFormFields0(0) = "datefrom" arFormDBFields0(0) = "From_date" arFormFields0(1) = "Todate" arFormDBFields0(1) = "To_date" arFormFields0(2) = "Rank_Title" arFormDBFields0(2) = "Rate" arFormFields0(3) = "Email_Email" arFormDBFields0(3) = "Email" arFormFields0(4) = "Name_FullName" arFormDBFields0(4) = "Name" FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 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:",_ "ddg23_servicelog_data_entry_form.htm",_ "Return to the form." End If End If %> Service Log Entry Form
Make your own free website on Tripod.com

1.gif (32090 bytes)   1.gif (32090 bytes)

              10.gif (638 bytes)                 10.gif (638 bytes)          10.gif (638 bytes)        10.gif (638 bytes)                                           10.gif (638 bytes)
Home      History    CO's corner    Happenings     Pics    Service Log    Sea Stories    Navy links    About Me

 

Please fill out the form below to have your name entered into USS Richard E. Byrd servicelog

<% 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 %>

                                     
                    Please provide your name:                         

                   Please provide your rate/rank:                  

          Please enter service start date :                

                    Enter service ending date :                        

                    Please provide your email:                        

                   
                                                                                                                                                    

                 

Copyright information goes here.
Last revised: May 22, 2000