<%@ Language=VBScript %>
<%Response.Buffer = True%>
User's Feedback Page
<%
Dim Connection
set Connection= Server.CreateObject("ADODB.Connection")
Connection.Open "DQDB"
Dim msg
Dim RS
SQL = "Select * from ST"
Set RS = Connection.Execute(SQL)
IF Request.Form("Send")= "Send" Then
If Request.Form("Email")= "" then
msg = "ERROR! Please insert your Email "
ElseIf Request.Form("Descriptions")= "" then
msg = "ERROR! Please insert Description! (case-sensitive) "
Else
Dim SendEmail
SendEmail="Submit@DirectQuest.com"
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = Request.Form("Email")
objMail.To = SendEmail
objMail.Subject = "Topic Smart Contact Us"
objMail.Body = Request.Form("Descriptions")
objMail.Send
Set objMail = Nothing
response.redirect ("EmailForm.asp")
End IF
End IF
%>