<%@LANGUAGE="VBSCRIPT"%>
<%
if Request.Querystring("isSubmitted") = "yes" then
Dim fname, lname, address1, address2, city, pstate, zip, pnumber, email, comments
Dim objCDO
fname = Request.Querystring("Firstname")
lname = Request.Querystring("Lastname")
address1 = Request.Querystring("address1")
address2 = Request.Querystring("address2")
city = Request.Querystring("city")
pstate = Request.Querystring("state")
zip = Request.Querystring("zip")
pnumber = Request.Querystring("phone")
email = Request.Querystring("email")
comments = Request.Querystring("comments")
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = "angelineg@sdmi-lv.com"
objCDO.From = email
objCDO.Cc = "dshackley@sdmi-lv.com"
objCDO.Bcc="azamani1@aol.com, aviz@sdmi-lv.com"
objCDO.Subject = "Contact Request from SDMI Website"
MyBody = "Name : " & fname & " " & lname & vbCrLf & vbCrLf
MyBody = MyBody & "Address : " & address1 & vbCrLf
MyBody = MyBody & "Address : " & address2 & vbCrLf
MyBody = MyBody & "City : " & city & vbCrLf
MyBody = MyBody & "State : " & pstate & vbCrLf
MyBody = MyBody & "Zip : " & zip & vbCrLf & vbCrLf
MyBody = MyBody & "Phone : " & pnumber & vbCrLf & vbCrLf
MyBody = MyBody & "Comments : " & comments & vbCrLf & vbCrLf
objCDO.Body = MyBody
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
ConfirmMsg = "Thanks for submitting your request. Our representatives will contact you regarding this request within One (1) business day."
end if
%>
Steinberg Diagnostics Medical Imaging Centers
<% if ConfirmMsg <> "" then %>
<%= ConfirmMsg %>
<% end if %>
Any issues that
were not addressed within our web site or additional questions that you
may have regarding our services can be sent to us using the following
form. Just fill out the blanks and hit Send.
Download
the Adobe Acrobat Reader
to view some of the files within our web site
