Become An IRVAN Provider!  

Get all of your questions answered here.
If you are a Real Estate Agent, sign up as an IRVAN Agent here.

<% If Request("Submit") <> "" Then Set rsProvider = GetWriteSet("SELECT * FROM providers;") rsProvider.AddNew rsProvider("realtor_id") = Replace(Request("Name")," ","_") rsProvider("realtor_name") = Request("Name") rsProvider("Telephone") = Request("Telephone") rsProvider("Cell") = Request("Cell") rsProvider("Fax") = Request("Fax") rsProvider("Website") = Request("Website") rsProvider("Email") = Request("Email") rsProvider("Address") = Request("Address") rsProvider("City") = Request("City") rsProvider("State") = Request("State") rsProvider("ZIPCode") = Request("ZIPCode") rsProvider("Comments") = Request("Comments") rsProvider("Experience") = Request("Experience") rsProvider("Equipment") = Request("Equipment") rsProvider("ServiceArea") = Request("ServiceArea") rsProvider("SalesGoal") = Request("SalesGoal") rsProvider.Update 'send email to admin Set Mailer = Server.CreateObject("CDO.Message") Mailer.From = "eric@realestatevideos.com" Mailer.To = "sales@realestatevideos.com" 'Mailer.To = "braincloud@bellsouth.net" Mailer.Subject = "IRVAN Provider Signed Up Online" body = "An IRVAN provider signed up online." & vbCRLF & vbCRLF body = body & "Name: " & Request("Name") & vbCRLF & vbCRLF body = body & "Telephone: " & Request("Telephone") & vbCRLF & vbCRLF body = body & "Cell: " & Request("Cell") & vbCRLF & vbCRLF body = body & "Fax: " & Request("Fax") & vbCRLF & vbCRLF body = body & "Website: " & Request("Website") & vbCRLF & vbCRLF body = body & "Address: " & Request("Address") & vbCRLF & vbCRLF body = body & "City: " & Request("City") & vbCRLF & vbCRLF body = body & "State: " & Request("State") & vbCRLF & vbCRLF body = body & "ZIP Code: " & Request("ZIPCode") & vbCRLF & vbCRLF body = body & "Email: " & Request("Email") & vbCRLF & vbCRLF body = body & "Comments: " & Request("Comments") & vbCRLF & vbCRLF body = body & "Experience: " & Request("Experience") & vbCRLF & vbCRLF body = body & "Equipment: " & Request("Equipment") & vbCRLF & vbCRLF body = body & "Service Area: " & Request("ServiceArea") & vbCRLF & vbCRLF body = body & "Sales Goal: " & Request("SalesGoal") & vbCRLF & vbCRLF Mailer.TextBody = body Mailer.Send %>
Thanks! We'll contact you soon.
<% Else %>
Contact Information
Name:
Telephone:
Cell Phone:
Fax:
Email Address:
Website:
Address:
City:
State:
ZIP Code:
Please describe your experience:
What equipment do you own?
Please describe what area you would like to be responsible for:
How much do you intend to make for each home you shoot (not including any sales commissions)?
Comments:
<% End If %>