<%@ language="vbscript" %>
<!--#include file="page.asp"-->

<%
On Error Resume Next

p_userid = request.form("p_name")
p_pass1 = request.form("p_pass1")
p_pass2 = request.form("p_pass2")
p_first = request.form("p_first")
p_last = request.form("p_last")
p_email = request.form("p_email")

if p_pass1 = p_pass2 then

set outpostDB = Server.CreateObject("ADODB.Connection")
'Open the connection
outpostDB.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("outpost.mdb")
outpostDB.open
theSQL = "insert into members "
theSQL = theSQL & "(username, password, first_name, last_name, "
theSQL = theSQL & "email, believes_in_aliens)"
theSQL = theSQL & " values ('"&p_userid&"', '"&p_pass1&"', '"
theSQL = theSQL & p_first&"', '"&p_last &"','"&p_email&"', '"
theSQL = theSQL & p_believes_in_aliens&"')"

outpostDB.Execute(theSQL)

for each p_medium in request.querystring("p_medium")
theSQL = "insert into user_medium (username, medium) values ('"&p_userid&"', '"&p_medium&"')"
outpostDB.Execute(theSQL)
next

outpostDB.close
set outpostDB = Nothing

%>

<% if Err.number = 0 then
'All is well with the world. %>
<br>
Thank you for registering with Primary Outpost!

<% else
'There was a problem with their registration%>
<br>
There was a problem with your registration.<br>
please go back and choose a different username.

<% end if

else
'p_pass1 doesn't match p_pass2%>
<br>
password error<br>
both entries for your password must match.<br>
please try again. thank you!
<%end if
%></body></html>