<% @language="vbscript" %> DMR Contact Entry Request

Contact Information Entry Request

  "> Return  

To:

     <% if 0 then %> <% end if %> <% fp_sQry="SELECT Users.UserName, Users.Email FROM Users ORDER BY Users.UserName;" fp_sDefault="" fp_sNoRecords="No records returned." fp_sDataConn="dmrezapp" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=0 fp_fTableFormat=False fp_fMenuFormat=True fp_sMenuChoice="UserName" fp_sMenuValue="Email" fp_sColTypes="&UserName=202&Email=202&" fp_iDisplayCols=2 fp_fCustomQuery=True BOTID=1 fp_iRegion=BOTID %>  

      

 *First Name:

    " tabindex="2">

 Middle Name:

    " tabindex="2">

 *Last Name:

    " tabindex="3">

 *Company Name

    " tabindex="4">

 *Work Phone

    " tabindex="5">

 Cell Phone

    " tabindex="6">

 Work Email

    " tabindex="7">

Special Instructions:

    
<% dim emailto dim redirectstr emailto=Request.Form("DMRCNEEmailIt") If emailto <> "" Then redirectstr = "DMRCNEemailconfirm.asp" redirectstr = redirectstr & "?Subject=Please Post this Contact Information in EZAccess" & "&" redirectstr = redirectstr & "ToEmail=" & Request.Form("ToEmail") & "&" redirectstr = redirectstr & "FirstName=" & Request.Form("FirstName") & "&" redirectstr = redirectstr & "MiddleName=" & Request.Form("MiddleName") & "&" redirectstr = redirectstr & "LastName=" & Request.Form("LastName") & "&" redirectstr = redirectstr & "CompanyName=" & Request.Form("CompanyName") & "&" redirectstr = redirectstr & "WorkPhone=" & Request.Form("WorkPhone") & "&" redirectstr = redirectstr & "CellPhone=" & Request.Form("CellPhone") & "&" redirectstr = redirectstr & "WorkEmail=" & Request.Form("WorkEmail") & "&" redirectstr = redirectstr & "SpecialInstructions=" & Request.Form("SpecialInstructions") & "&" Response.Redirect redirectstr End If %>