 |
 |
 |
Get a Quote
We will not get into many technical
questions and waste valuable time, but rather get the basics and get right back to you with a fair ball park figure. Then you will have a rough idea if it is worth to proceed. Keeping in mind that all jobs are
different and until we actually have our hands on the media, it is hard to say
exactly what the issues are.
So we would at least be happy to give you an idea up front comparing to
average similar jobs. Yes it may be more, it may be less. And when we say ball
park, we have never been off too far one way or the other if not exact.
Customer Information
|
|
|
| |
<% Case "Submit" 'after form is submited the hidden field called action that is submitted means that the varible Action is equal to "submit" and does this case
%>Doctor Data Customer Quote
<%
Function FillInt(req)
if req="" or isNull(req) then
FillInt= 0
else
FillInt=req
end if
end function
'function that replaces the tic that normally crashes SQL
FUNCTION REPLACETIC(TXT)
REPLACETIC = Replace(txt,"'","`")
End Function
'need to request the values submitted in the form into variable you can use in this case.
Company = ReplaceTic(trim(Request("Company")))
Contact = ReplaceTic(trim(Request("Contact")))
Phone = ReplaceTic(trim(Request("Phone")))
Email = ReplaceTic(trim(Request("Email")))
Address = ReplaceTic(trim(Request("Address")))
Address2 = ReplaceTic(trim(Request("Address2")))
City = ReplaceTic(trim(Request("City")))
zip = ReplaceTic(trim(Request("zip")))
media = ReplaceTic(trim(Request("media")))
brand = ReplaceTic(trim(Request("brand")))
capacity = ReplaceTic(trim(Request("capacity")))
os = ReplaceTic(trim(Request("os")))
messages = ReplaceTic(trim(Request("messages")))
'Determine if Feedback was filled properly
SaveOk = true
IF contact = "" THEN
response.write("
Please provide a valid contact.")
SaveOk = False
END IF
IF email = "" THEN
response.write("
Please provide a valid e-mail address.")
SaveOk = False
END IF
IF phone = "" THEN
response.write("
Please provide a valid phone number.")
SaveOk = False
END IF
'IF FriendEmail = "" THEN
' response.write("
Your friend's e-mail is required.")
' SaveOk = False
'END IF
IF SaveOk <> true THEN
response.write("
Please go back and do the modifications.")
ELSE
'basically creating one long string that allows you set as the text that is emailed, using the variables as some of the string.
dim strBody
strBody = ""
strBody = "Customer Quote Request:"
strBody = strBody + vbCrLf
strBody = strBody + vbCrLf
strBody = strBody + "Company: "
strBody = strBody + company
strBody = strBody + vbCrLf
strBody = strBody + "Contact: "
strBody = strBody + contact
strBody = strBody + vbCrLf
strBody = strBody + "phone: "
strBody = strBody + phone
strBody = strBody + vbCrLf
strBody = strBody + "Email: "
strBody = strBody + email
strBody = strBody + vbCrLf
strBody = strBody + "Address: "
strBody = strBody + Address
strBody = strBody + vbCrLf
strBody = strBody + "Address2: "
strBody = strBody + Address2
strBody = strBody + vbCrLf
strBody = strBody + "City: "
strBody = strBody + City
strBody = strBody + vbCrLf
strBody = strBody + "Postal Code: "
strBody = strBody + zip
strBody = strBody + vbCrLf
strBody = strBody + "Media: "
strBody = strBody + media
strBody = strBody + vbCrLf
strBody = strBody + "Brand: "
strBody = strBody + brand
strBody = strBody + vbCrLf
strBody = strBody + "Capacity: "
strBody = strBody + capacity
strBody = strBody + vbCrLf
strBody = strBody + "Operating System: "
strBody = strBody + os
strBody = strBody + vbCrLf
strBody = strBody + "Messages: "
strBody = strBody + messages
strBody = strBody + vbCrLf
strBody = strBody + vbCrLf
'Subject = " "
'code that uses CDO to email
Dim MyMail
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "estimates@doctordata.ca" 'From email
MyMail.To = "estimates@doctordata.ca" 'To email
MyMail.Subject = "Doctor Data Customer Quote Request" ' Email Subject
MyMail.BodyFormat = 1
MyMail.MailFormat = 0
MyMail.Importance = 1
MyMail.Body = strBody 'Text content of the email using the created variable strBody from above.
MyMail.Send
Set MyMail = Nothing
response.write("
Thank you for requesting a customer quote from DoctorData.
")
end if
End Select%>
|
|
Systems and Devices
One of the first questions we get from prospective clients is: "What kind of systems and devices can Doctor Data recover data from?"
Read More...
Guaranteed Service
In a world where so little is guaranteed, we're willing and proud to stand out in the marketplace by offering a simple, easy to understand satisfaction guarantee.
Read More...
Quote Me!
Doctor Data can recover data from virtually any system, device or medium. And we're ready to start working on your data right now.
From PCs to laptops to camera phones, memory sticks and enterprise servers, Doctor Data is ready to take get your data up and running.
Quote Me...
|
|
|
