|
*
Name |
" size="38" maxlength='60' style="font-family: Tahoma; font-size: 8pt"> |
|
Address |
" size="38" maxlength='60' style="font-family: Tahoma; font-size: 8pt"> |
|
* Country |
|
|
*
E-mail ID |
" size="38" maxlength='60' style="font-family: Tahoma; font-size: 8pt"> |
Phone No.
(Ex: 91-11-2200349) |
1. " size="24" maxlength='30' style="font-family: Tahoma; font-size: 8pt">
2. " size="24" maxlength='30' style="font-family: Tahoma; font-size: 8pt"> |
Fax No.
(Ex: 91-11-2200349) |
" size="24" maxlength='30' style="font-family: Tahoma; font-size: 8pt"> |
|
*
Feedback
Details |
|
|
*
Verify |
Change Image
|
|
|
|
<%
if not IsEmpty(Request.Form("btnTest")) then
Response.Write("
")
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
Response.Buffer=TRUE
FUNCTION fixq(theVar)
fixq = REPLACE (theVar, "'", "''")
END FUNCTION
dim con, rs1
strMap=Server.MapPath("ecs.mdb")
Set con = Server.CreateObject("ADODB.Connection")
con.open "PROVIDER = MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" &strMap
' variable declaration
dim name, address, email, sug, num
name = TRIM(request.form("name"))
address = TRIM(request.form("address"))
email = TRIM(request.form("email"))
sug = TRIM(request.form("comment"))
phone1=TRIM(request.form("phone1"))
phone2=TRIM(request.form("phone2"))
contry=TRIM(request.form("contry"))
fax=TRIM(request.form("fax"))
company_name=TRIM(request.form("company_name"))
If address = "" Then
address="not available"
end if
name = fixq(name)
address = fixq(address)
email = fixq(email)
sug = fixq(sug)
phone1 = fixq(phone1)
phone2 = fixq(phone2)
contry = fixq(contry)
fax = fixq(fax)
company_name = fixq(company_name)
str = "Insert into feedback values('" & name & "','" & address & "','" & email & "','" & sug & "','" & company_name &"','" &contry &"','"& phone1&"','"& phone2&"','"& fax &"','"& now &"')"
con.Execute(str)
Dim objMail1
dim str1, dt
dt=cdate(now)
str1=" | | Name | " & name & " | | Address | " & address & " | | Country | " & contry & " | | E-mail ID | " & email & " | | Phone No. | " & phone1 & " ," & phone2 & " | | Fax No. | " & fax & " | | Feedback Details | " & sug & " |
|
"
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = "Suggestion "
objMail.To ="contact@drarunadsool.info"
objMail.subject="Feedback"
'objMail.Bcc="support@vertexinfo.in"
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.unipunepgadmissions.com"
'Server port
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=8025
objMail.Configuration.Fields.Update
'response.write str1
objMail.htmlBody = ""& str1 &""
objMail.Send
Set Mail = Nothing
Response.Redirect "enquiryok.htm"
Response.Buffer=FALSE
Response.Redirect("enquiryok.htm")
else
Response.Write("You entered the wrong code.")
end if
Response.Write(" |
" & vbCrLf)
end if
%>