<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear 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("registration2.mdb_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(5) Dim arFormDBFields0(5) Dim arFormValues0(5) arFormFields0(0) = "T12" arFormDBFields0(0) = "T12" arFormValues0(0) = Request("T12") arFormFields0(1) = "S1" arFormDBFields0(1) = "S1" arFormValues0(1) = Request("S1") arFormFields0(2) = "T9" arFormDBFields0(2) = "T9" arFormValues0(2) = Request("T9") arFormFields0(3) = "T10" arFormDBFields0(3) = "T10" arFormValues0(3) = Request("T10") arFormFields0(4) = "T11" arFormDBFields0(4) = "T11" arFormValues0(4) = Request("T11") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" 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:",_ "registration.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> <% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "1" 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("registration2.mdb_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 arFormFields1(13) Dim arFormDBFields1(13) Dim arFormValues1(13) arFormFields1(0) = "S1" arFormDBFields1(0) = "S1" arFormValues1(0) = Request("S1") arFormFields1(1) = "T12" arFormDBFields1(1) = "T12" arFormValues1(1) = Request("T12") arFormFields1(2) = "T3" arFormDBFields1(2) = "T3" arFormValues1(2) = Request("T3") arFormFields1(3) = "T4" arFormDBFields1(3) = "T4" arFormValues1(3) = Request("T4") arFormFields1(4) = "T6" arFormDBFields1(4) = "T6" arFormValues1(4) = Request("T6") arFormFields1(5) = "T7" arFormDBFields1(5) = "T7" arFormValues1(5) = Request("T7") arFormFields1(6) = "T8" arFormDBFields1(6) = "T8" arFormValues1(6) = Request("T8") arFormFields1(7) = "T9" arFormDBFields1(7) = "T9" arFormValues1(7) = Request("T9") arFormFields1(8) = "Last_name" arFormDBFields1(8) = "Last_name" arFormValues1(8) = Request("Last_name") arFormFields1(9) = "Name" arFormDBFields1(9) = "Name" arFormValues1(9) = Request("Name") arFormFields1(10) = "T10" arFormDBFields1(10) = "T10" arFormValues1(10) = Request("T10") arFormFields1(11) = "States" arFormDBFields1(11) = "States" arFormValues1(11) = Request("States") arFormFields1(12) = "T11" arFormDBFields1(12) = "T11" arFormValues1(12) = Request("T11") FP_SaveFormFields fp_rs, arFormFields1, arFormDBFields1 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:",_ "registration.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> New Page 1
Make your own free website on Tripod.com

                   

                                   Get an ACCOUNT today, it's FREE!!
                                                                                          Click here to register
                        LOGIN:        PASSWORD:
                                                                                          Forgot your password ?
 

 

Register     MyDeposit      FAQ      Customer Service      
   

Warranty Deposit Registration

<% 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_EncodeOutput(str) FP_EncodeOutput = str FP_EncodeOutput = Replace(FP_EncodeOutput,"&","^^@^^") FP_EncodeOutput = Server.HTMLEncode(FP_EncodeOutput) FP_EncodeOutput = Replace(FP_EncodeOutput,"^^@^^","&") End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) On Error Resume Next 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 & "" & ": " & FP_EncodeOutput(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_FormConfirmationFromArrays(szCharset, szTitle, szmsg1, szUrl, szMsg2, rgDBFields, rgDBValues) On Error Resume Next 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 j = 0 To UBound(rgDBFields) - 1 Response.Write "" & rgDBFields(j) & "" & ": " & FP_EncodeOutput(rgDBValues(j)) & "
" & vbCrLf Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) On Error Resume Next If Err.Number <> 0 Then fp_conn.Close Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") 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 %>

         

 

 

Why don't we make life easier and its FREE!!!  With Warranty deposit it is as simple as 1-2-3. Create an account and register all your warranties.

 Don't have time to register, we will do it for you

Even if you don't have time to register, we will register your warranties for you and keep track of them. All you have to do is, fax us your Registered User id #, name and address along with the warranty and purchase receipt of your item. your warranty will be in the database within 48 hours.  

 

<% 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_EncodeOutput(str) FP_EncodeOutput = str FP_EncodeOutput = Replace(FP_EncodeOutput,"&","^^@^^") FP_EncodeOutput = Server.HTMLEncode(FP_EncodeOutput) FP_EncodeOutput = Replace(FP_EncodeOutput,"^^@^^","&") End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) On Error Resume Next 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 & "" & ": " & FP_EncodeOutput(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_FormConfirmationFromArrays(szCharset, szTitle, szmsg1, szUrl, szMsg2, rgDBFields, rgDBValues) On Error Resume Next 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 j = 0 To UBound(rgDBFields) - 1 Response.Write "" & rgDBFields(j) & "" & ": " & FP_EncodeOutput(rgDBValues(j)) & "
" & vbCrLf Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) On Error Resume Next If Err.Number <> 0 Then fp_conn.Close Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") 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 %>
Name :
Last name : 
Address :
City :
State:
Zip :
Phone :

Valid Email Address :

Choose a password :

Re-enter password :

Reminder Question :

Reminder Answer:

   

 

 

WarrantyDeposit.com All Rights reserved.

For web site related questions please contact info@warrantydeposit.com