<% Sub DoCount ' ### Updates the totals Table strSQl ="Update totals set totals.U_Count=totals.U_Count + 1" my_conn.Execute (strSQL) End Sub Sub ShowForm() %>

<% End Sub %> <% If Request.QueryString("mode") <> "doit" then Call ShowForm Else Function ChkString(string) if string = "" then string = " " ChkString = Replace(string, "'", "''") End Function Err_Msg = "" if Request.Form("name") = "" then Err_Msg = Err_Msg & "

You must choose a Username

" if Request.Form("password") = "" then Err_Msg = Err_Msg & "

You must choose a password

" if Request.Form("password") <> Request.Form("password2") then Err_Msg = Err_Msg & "

Your Passwords didn't match.

" if Request.Form("email") = "" then Err_Msg = Err_Msg & "

You Must give an email address

" set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString strSql = "Select M_Name from members where M_Name = '" & Request.Form("name") &"'" set rs = my_conn.Execute (StrSql) if rs.bof and rs.eof then ' OK Else Err_Msg = Err_Msg & "

Username already in Use, Please Choose Another

" End If rs.close set rs = nothing if Err_Msg = "" then strSql = "insert into members (M_Name, M_Password, M_Email, M_Country, M_Sig, M_ICQ, M_Posts, M_Homepage) Values ('" strSql = StrSQl & ChkString(Request.Form("name")) & "', '" strSql = StrSQl & ChkString(Request.Form("password")) & "', '" strSql = StrSQl & ChkString(Request.Form("email")) & "', '" strSql = StrSQl & ChkString(Request.Form("country")) & "', '" strSql = strSQL & ChkString(Request.Form("sig")) & "', '" strSql = strSQL & ChkString(Request.Form("ICQ")) & "', " strSql = strSQL & "0, '" strSql = StrSQl & ChkString(Request.Form("homepage")) & "')" my_conn.Execute (StrSql) docount Else %>

There Was A Problem With Your Details -

<%= Err_Msg %> <% call ShowForm On Error Resume next my_conn.Close set my_conn = nothing Response.End End If %>

Your Registration Has Been Completed!

Back To Forum <% End If On Error Resume next my_conn.Close set my_conn = nothing %>