<%@ LANGUAGE="VBScript" %>
<%
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
' See if we have any info to process.
' If we don't (ie. the first time through) we just show
' the form. If we do we proceed with the insert.
If Request.Form("action") <> "yes" and Request.QueryString("action") <> "yes" Then
' Show the form
addtext = " "
else
dim name
dim email
dim sex
dim age
dim penpal
dim mevar
dim objpal
name = Request.Form("name")
email = Request.Form("email")
sex = Request.Form("sex")
age = Request.Form("age")
penpal = Request.Form("penpal")
mevar = Request.Form("me")
Set objpal = Server.CreateObject("ADODB.recordset")
objpal.Open "penpal", strConnect, adOpenStatic, _
adLockOptimistic, adCmdTable
'create a new palord
objpal.AddNew
'set the field equal to the variable
objpal("name") = name
objpal("email") = email
objpal("sex") = sex
objpal("age") = age
objpal("penpal") = penpal
objpal("me") = mevar
'update the database with the new palord
objpal.Update
'close the database
objpal.Close
Set objpal = Nothing
addtext = "Thank You for Adding your Pen Pal Request to Access North!"
end if
%>
Pen Pals Access North - The Disability Community of The North