<%
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%>
