Join Our Team!

If you are a video professional and would like to become an IRVAN Video tour provider, click here.

<% If Request("Submit") <> "" Then Set rsAgents = GetWriteSet("SELECT * FROM realtor;") rsAgents.AddNew rsAgents("realtor_id") = Replace(Request("Name")," ","_") rsAgents("realtor_name") = Request("Name") rsAgents("Telephone") = Request("Telephone") rsAgents("Cell") = Request("Cell") rsAgents("Fax") = Request("Fax") rsAgents("Website") = Request("Website") rsAgents("ZIPCode") = Request("ZIPCode") rsAgents("Email") = Request("Email") rsAgents("Comments") = Request("Comments") rsAgents.Update 'send email to admin Set Mailer = Server.CreateObject("CDO.Message") Mailer.From = "eric@realestatevideos.com" Mailer.To = "sales@realestatevideos.com" Mailer.Subject = "IRVAN Agent 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 & "ZIP Code: " & Request("ZIPCode") & vbCRLF & vbCRLF body = body & "Email: " & Request("Email") & vbCRLF & vbCRLF body = body & "Comments: " & Request("Comments") & vbCRLF & vbCRLF Mailer.TextBody = body Mailer.Send %>
Thanks! We'll contact you soon.
<% Else %>
Contact Information
Name:
Telephone:
Cell Phone:
Fax:
Email Address:
Website:
ZIP Code:
Comments:
<% End If %>