<% 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"