<% DIM fname, lname, email, address, city, state, zip, birthDate, comments, customerID, commentID customerID = Request.Form("customerID"): If customerID = "" OR NOT IsNumeric(customerID) Then customerID = 0 commentID = Request.Form("commentID"): If commentID = "" OR NOT IsNumeric(commentID) Then commentID = 0 fname = Replace(stripHTML(trim(Request.Form("fname"))),"'", "''") lname = Replace(stripHTML(trim(Request.Form("lname"))),"'", "''") email = Replace(stripHTML(trim(Request.Form("email"))),"'", "''") address = Replace(stripHTML(trim(Request.Form("address"))),"'", "''") city = Replace(stripHTML(trim(Request.Form("city"))),"'", "''") state = Request.Form("state") zip = Replace(stripHTML(trim(Request.Form("zip"))),"'", "''") birthDate = Replace(stripHTML(trim(Request.Form("birthDate"))),"'", "''") comments = Replace(stripHTML(trim(Request.Form("comments"))),"'", "''"): if comments = "" then comments = "n/a" If request.ServerVariables("REQUEST_METHOD") = "POST" Then SQL = "EXECUTE sp_insertBabyBoomer @customerID=" & customerID & ", @fname='" & fname & "', @lname='" & lname & "', @email='" & email & "', " SQL = SQL & "@address='" & address & "', @city='" & city & "', @state='" & state & "', @zipcode='" & zip & "', " SQL = SQL & "@birthDate='" & birthDate & "' " 'Response.Write("

" & SQL & "

" & vbCrlf) Set Rs = Conn.Execute(SQL) If NOT Rs.EOF Then customerID = Rs(0) End If Set Rs = Nothing 'response.write("***" & customerID) if comments <> "n/a" then SQL = "EXECUTE sp_insertBabyBoomerComments @commentID = '" & commentID & "', @commentText='" & comments & "', @customerID='" & customerID & "' " 'Response.Write("

" & SQL & "

" & vbCrlf) Set Rs = Conn.Execute(SQL) Set Rs = Nothing end if %>

Thank you for joining BabyBoomers.com!

<% else 'Display form %> <% End If %>