")
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
Response.Buffer=TRUE
FUNCTION fixq(theVar)
fixq = REPLACE (theVar, "'", "''")
END FUNCTION
dim con, rs1
'strMap=Server.MapPath("unipuneFeedback.mdb")
set con=Server.CreateObject("ADODB.Connection")
con.Open Application("CON_STRING")
'response.write(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"))
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)
dim ipadd
ipadd=Request.ServerVariables("REMOTE_ADDR")
'str = "Insert into feedback(FDept,FName,FAdd,Femail,Fsuggestion,Fcontry,Fphone1,Fphone2,Ffax,Ffeedback_date,ip_add)values('ISRO','" & name & "','" & address & "','" & email & "','" & sug & "','" &contry &"','"& phone1&"','"& phone2&"','"& fax &"','"& now &"','" & ipadd & "')"
'response.write(str)
'con.Execute(str)
Dim objMail1
dim str1, dt
dt=cdate(now)
str1= "Feedback Received from Your Official Website 'www.unipune.ac.in' | Name : | " & name & " | Address : | " & address & " | Country : | " & contry & " | Email : | " & email & " | Phone : | " & phone1 & " ," & phone2 & " | Fax : | " & fax & " | Feedback Details : | " & sug & " |
"
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Your Official Website's Feedback"
myMail.From=email
myMail.To="despun@physics.unipune.ac.in"
'myMail.Cc="mayurk312@gmail.com"
'myMail.Cc="sawandarekar87@gmail.com"
myMail.HTMLBody = str1
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="TRICWEB"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=8025
myMail.Configuration.Fields.Update
'myMail.Send
set myMail=nothing
'Response.Redirect "feedbackok.htm"
'Response.Buffer=FALSE
Response.Redirect("feedbackok.htm")
else
'Response.Write("You entered the wrong code.")
end if
Response.Write(" |
" & vbCrLf)
end if
%>