<%@Language = VBScript%>
<%
Dim conn
Dim mailto
'Open connection to upseek
Set conn = Server.CreateObject ("ADODB.Connection")
'conn.Open Application("upseek_ConnectionString")
conn.Open "upseek"
'Open Table "mailto"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "mailto", conn, 3, 3
If Request.Form("button") = "Send" then
rs.AddNew
If request.Form("rec_name") <> "" then
rs("Rec_Name") = Request.Form("rec_name")
End if
If request.Form("rec_email") <> "" then
rs("Rec_Email") = Request.Form("rec_email")
End if
If request.Form("sen_name") <> "" then
rs("Sen_Name") = Request.Form("sen_name")
End if
If request.Form("sen_email") <> "" then
rs("Sen_Email") = Request.Form("sen_email")
End if
rs("DatePosted") = Now()
rs.Fields("sent") = 1
rs.Update
rs.Close
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
rem change this RemoteHost to a valid SMTP address before testing
Mailer.RemoteHost = "205.178.180.100"
Mailer.FromAddress = Request.Form("sen_email")
Mailer.AddRecipient Request.Form("rec_name"),Request.Form("rec_email")
Mailer.Subject = "COOL SITE"
Mailer.BodyText = "http://www.perfectzoneinc.com"
If Mailer.SendMail then
ok = "yes"
end if
If not Mailer.SendMail then
ok = "no"
end if
End if
%>
Up emag - The Unique Global Chinese Women Network