<%
 dim visitor_name, email, address, phone, credit_card_id
 dim category_id, sql
 visitor_name=Request.Form( "visitor_name" )
 email=Request.Form( "email" )
 address=Request.Form( "address" )
 id=Request.Form( "id" )
 phone=Request.Form( "phone" )
 category_id=Request.Form( "category_id" )
 radio1=Request.Form( "radio1" )
 
 if visitor_name = nil or email=nil or address=nil or phone=nil then
	Response.Write  "<center><h3>" 
	Response.Write  "Some details are missing or incorrect" 
	Response.Write  "</h3></center>"  
	Response.Write  "<h3><center>" 
	Response.Write  "Please go back anf finish the registry"  &  ""
	Response.Write " </h3></center> "
else

dim conn
set conn=Server.CreateObject(" ADODB.connection ")
conn.Open " dsn=bookstore "

sql=" UPDATE visitors SET visitor_name='" & visitor_name
sql=sql & "', email='" & email
sql=sql & "', address='" & address
sql=sql & "', id='" & id
sql=sql & "', phone='" & phone
sql=sql & "', category_id= " & category_id
sql=sql & "  where visitor_id= " & session(" visitor_id ")

'Response.Write sql

conn.Execute sql

conn.Close
set conn=nothing


 Response.Write "<center><h3>"
 Response.Write "Thank's 4  join us"
 Response.Write  "</h3></center>" 
 end if
 %>