%
Function fixIt(string)
if string <> "" then
fixIt=replace(string,"'","''")
else
fixIt = string
end if
End Function
if Request("Submit")<>"" then
gName = Request("gName")
gCompany = Request("gCompany")
gEmail = Request("gEmail")
gQuote_Document = Request("gQuote_Document")
gInquiry = Request("gInquiry")
strname= Request("Name")
strEmail= Request("Email")
strCompany= Request("Company")
strPhone= Request("Phone")
strType= Request("Type")
strSite1= Request("Site1")
strSite2= Request("Site2")
strSite3= Request("Site3")
strSite4= Request("Site4")
strLogo= Request("Logo")
strLayout= Request("Layout")
strIcon= Request("Icon")
strIillustrations= Request("Iillustrations")
strFlash= Request("Flash")
strFullflash= Request("Fullflash")
strBudjet= Request("Budjet")
strDetail= Request("Detail")
'gSQL = "INSERT INTO genQoute (gName, gCompany, gEmail, gQuote_Document, gInquiry, Current_Date) values ('"& fixIt(gName) &"', '"& fixIt(gCompany) &"', '"& fixIt(gEmail) &"', '"& fixIt(gQuote_Document) &"', '"& fixIt(gInquiry) &"', #"& Now() &"#)"
'Response.Write "gSQL: " & gSQL & "
"
'Response.End
'set gRS = database.execute(gSQL)
strEmailContents=""
strEmailContents=strEmailContents & "User General Quote Information" & "
"
strEmailContents=strEmailContents & "Name: " & strname & "
"
strEmailContents=strEmailContents & "Email: " & strEmail & "
"
strEmailContents=strEmailContents & "Company: " & strCompany & "
"
strEmailContents=strEmailContents & "Phone: " & strPhone & "
"
strEmailContents=strEmailContents & "Type: " & strType & "
"
'strEmailContents=strEmailContents & "ProjectType: " & Type & "
"
strEmailContents=strEmailContents & "Similar websites: " & strSite1 & "
"
strEmailContents=strEmailContents & "Similar websites: " & strSite2 & "
"
strEmailContents=strEmailContents & "Similar websites: " & strSite3 & "
"
strEmailContents=strEmailContents & "Similar websites: " & strSite4 & "
"
strEmailContents=strEmailContents & "Logo: " & strLogo & "
"
strEmailContents=strEmailContents & "Layout design: " & strLayout & "
"
strEmailContents=strEmailContents & "Icon: " & strIcon & "
"
strEmailContents=strEmailContents & "Iillustrations: " & strIillustrations & "
"
strEmailContents=strEmailContents & "Flash animation: " & strFlash & "
"
strEmailContents=strEmailContents & "Full-flash site: " & strFullflash & "
"
strEmailContents=strEmailContents & "Your Budjet on this project: " & strBudjet & "
"
strEmailContents=strEmailContents & "DETAILED OF YOUR PROJECT: " & strDetail & "
"
email="nadeemawan@softtechmedia.com"
call sendEmail("feedback@softtechmedia.com", email, "User Feed Back Information", strEmailContents, "")
response.write "thanks.htm"
end if
%>