% if request("submit") = "submit" then sql = "Select * FROM online_sub WHERE email='" & request("email") & "';" 'sql = "Select * FROM online_sub" set rs = Server.CreateObject("ADODB.Recordset") 'open recordset rs.Open sql, strConnect2, 2, 3, &H0001 if rs.bof then rs.addnew rs("email") = request("email") end if if request("fname") <> "" then rs("fname") = request("fname") end if if request("lname") <> "" then rs("lname") = request("lname") end if if request("city") <> "" then rs("city") = request("city") end if if Request("state") <> "(select)" then rs("state") = Request("state") end if rs.update rs.close end if%>
| Matthew Sabatella |
| news | music | pictures | press | archives | contact |
|
music |
|
|
|