<%
set con=server.createobject("adodb.connection")
emaildone=false
sOpenString = "Driver={Microsoft Access Driver (*.mdb)}; Dbq=d:\InetPub\sunnuclear\data\data.mdb;"
con.Open sOpenString
TempEmail=request.cookies("email")
set rs=con.execute("select * from cust_info where email='"+TempEmail+"'")
if not rs.eof then
TempName=request.cookies("UserName")
TempCity=rs("City")
TempState=rs("State")
TempPhone=rs("phone")
country=rs("country")
Company=rs("company")
end if
%>
<% if request("firsttime")="no" then
set sendmail=server.createobject("CDO.Message")
name=request("name")
email=request("email")
Institution=request("Institution")
state=request("state")
phone=request("phone")
country=request("country")
message=request("message")
IpAddress=Request.ServerVariables("REMOTE_ADDR")
UserLogonName=Request.ServerVariables("LOGON_USER")
RemoteHostName=Request.ServerVariables("REMOTE_HOST")
ServerHostName=Request.ServerVariables("SERVER_NAME")
set rsSalesRep=con.execute("select * from SalesRepTerritory where state = '"+State+"' or StateShort = '"+State+"'")
msgbody="The following person wants you to contact him/her."+chr(10)+"Name="+name+chr(10)+"E-mail="+email+chr(10)+"Institution="+Institution+chr(10)+"State="+state+chr(10)+"Phone="+phone+chr(10)+"Country="+country+chr(10)+"Message="+message+chr(10)+chr(10)+"IP Address="+IpAddress
sendmail.from="webmail@sunnuclear.com"
if(request("Inquiry")="Radon Monitor") then
sendmail.subject="Contact Us Information-Radon Monitors-"+name
sendmail.to="Laura@sunnuclear.com;sanjeev@sunnuclear.com;DiannaBarnett@sunnuclear.com"
elseif country<>"United States" then
sendmail.subject="Contact Us Information-International-"+name
sendmail.to="marksiviter@sunnuclear.com;sanjeev@sunnuclear.com;DiannaBarnett@sunnuclear.com;Zarela@sunnuclear.com"
elseif not rsSalesRep.eof then
sendmail.subject="Contact Us Information-Domestic-"+name
sendmail.to=rsSalesRep("Email")+";sanjeev@sunnuclear.com;DiannaBarnett@sunnuclear.com;PamMing@sunnuclear.com"
else
sendmail.subject="Contact Us Information-Not Forwarded-"+name
sendmail.to="sanjeev@sunnuclear.com;DiannaBarnett@sunnuclear.com;PamMing@sunnuclear.com"
end if
sendmail.textbody=msgbody
sendmail.send
set sendmail=nothing
'
' Thank you for
' your interest in Sun Nuclear Corporation
'
One of our customer service representative will review your information
' and contact you as soon as possible
At Sun Nuclear we want to make sure that we are available to you when you have a question. If you are contacting us about a technical support issue, please use our Problem Report Form.
Other methods of contact
CORPORATE:
Address: Sun Nuclear Corporation
425-A Pineda Court
Melbourne, Florida 32940
USA
Contact Us