<% ' 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("robdb_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Profile", 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(10) Dim arFormDBFields0(10) Dim arFormValues0(10) arFormFields0(0) = "Account_Username" arFormDBFields0(0) = "UserName" arFormValues0(0) = Request("Account_Username") arFormFields0(1) = "Contact_ZipCode" arFormDBFields0(1) = "Postal Code" arFormValues0(1) = Request("Contact_ZipCode") arFormFields0(2) = "Bio" arFormDBFields0(2) = "Bio" arFormValues0(2) = Request("Bio") arFormFields0(3) = "Contact_Country" arFormDBFields0(3) = "Country" arFormValues0(3) = Request("Contact_Country") arFormFields0(4) = "Contact_Email" arFormDBFields0(4) = "Email" arFormValues0(4) = Request("Contact_Email") arFormFields0(5) = "Contact_FirstName" arFormDBFields0(5) = "FName" arFormValues0(5) = Request("Contact_FirstName") arFormFields0(6) = "Contact_City" arFormDBFields0(6) = "City" arFormValues0(6) = Request("Contact_City") arFormFields0(7) = "Account_Password" arFormDBFields0(7) = "Password" arFormValues0(7) = Request("Account_Password") arFormFields0(8) = "Contact_LastName" arFormDBFields0(8) = "LName" arFormValues0(8) = Request("Contact_LastName") arFormFields0(9) = "Contact_State" arFormDBFields0(9) = "State" arFormValues0(9) = Request("Contact_State") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "thank_you.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> New Page 1

Create New Profile

This is an explanation of the purpose of the form ...

<% 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 Dim fp_Debug fp_Debug = False 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 If fp_Debug Then strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """" Else strError = "Cannot save value to database field" End If 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 & "" & ": " & Server.HTMLEncode(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) Dim fp_Debug fp_Debug = False If Err.Number <> 0 Then fp_conn.Close If strErrorUrl <> "" Then Response.Redirect strErrorUrl Else Response.Write " " & Server.HTMLEncode(strMsg) & "

" If fp_Debug Then Response.Write "Error Description: " & Server.HTMLEncode(Err.Description) & "

" Response.Write "Error Number: " & Server.HTMLEncode(Err.Number) & "

" Response.Write "Error Source: " & Server.HTMLEncode(Err.Source) & "

" End If Response.End End If End if End Function %>

Please provide the following contact information:

First Name
Last Name
Street Address
Address (cont.)
City
State/Province
Zip/Postal Code
Country
E-mail

Please provide your account information:

User Name
Password
Confirm Password

Personal Bio:


Select any of the following instruments that apply:

Guitar          Drums           Bass            Vocals        
Violin          Cello           Saxophone       Tuba          
Piano           Keyboard        Xylophone       Trumpet       
Trombone        Flute           Bass, Stand Up  Banjo         
Harp            Mandolin        Harmonica       Oboe          
Timbales        Bassoon         Piccolo         French Horn   
Clarinet        Timpani         Viola

Select any of the following genres that apply:

Blues             Soul              Classical         Rock            
Jazz              Hip-Hop           Latin             Reggae          
Pop               Blue Grass        Rythym and Blues  Punk            
Fusion            Folk              Heavy Metal       Thrash Metal    
Melodies          Pop Rock          Techno            Progressive     
New Age           Contemporary      Modern            Swing           
Big Band          Easy Listening    Soft Jazz         Country         
Classic Rock      Open Jam          Other


Copyright © 2005 Start-A-Jam. All rights reserved.
Revised: 05/19/05