%
title=request.form("title")
email=request.form("email")
password=request.form("password")
text=request.form("text")
u_date= now ()
topicID= 1
u_log=request.querystring("u_log")
script_name=request.servervariables("script_name")
if action = Request.QueryString("action")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from people where email = '" & email & "' "
While Not RS.EOF
If Email = RS("Email") And Password = RS("Password") Then
sql = "insert into topics(title,user name)"
sql = sql & " values( '" & title & "' , '" & body & "')"
sql = "insert into post(topicID,date,name, text)"
sql = sql & " values( '" & topicID &"' , '" & date & "' , '" & Name & "' '" & Text & "')"
rs.Open sql, cn
Else
Response.Redirect ""
End If
End If
RS.MoveNext
Wend
CleanUp(RS)
end sub
' ********************** add member
If Request.QueryString("action") = "member" Then
name=request.form("name")
email=request.form("email")
password=request.form("password")
ip = request.servervariables("remote_addr")
sql = "insert into people(name,email,password,ip)"
sql = sql & " values( '" & name &"' , '" & email & "' , '" & password & "' '" & ip & "')"
ToEmail =request.form("email")
FromEmail = ("webmaster@experiencethepoint.com")
Subject = ("Thank you for registering, and here is your password.")
Body = ("Thank You for registerting for Experience The Point's message board. Your Password is:
request.form("password")
Webmaster
http://www.experiencethepoint.com
")
Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
Mailer.FromAddress = FromEmail
If Not strReplyTo = "" Then Mailer.ReplyTo = strReplyTo
Mailer.AddRecipient ToName, ToEmail
Mailer.RemoteHost = ("mail.experiencethepoint.com")
Mailer.Subject = Subject
Mailer.BodyText = Body
If Mailer.SendMail Then
booMailError = False
Set Mailer = Nothing
Else
booMailError = True
Set Mailer = Nothing
end if
Response.Redirect "register.asp?action=done"