קוד:
<%@ Language=VBScript codepage="1255" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim visitor_name, email, pass, mysql
visitor_name=Request.Form("visitor_name")
email=Request.Form("email")
pass=Request.Form("pass")
if visitor_name = nil or email=nil or pass=nil then
Response.Write "<center><h2>"
Response.Write "חלק מהפרטים שהקשת חסרים או שגויים"
Response.Write "</h2></center>"
Response.Write "<center><h2>"
Response.Write "חזור לדף הקודם, תקן, ובצע שנית" & ""
Response.Write "</h2></center>"
else
dim conn
set conn=Server.CreateObject("ADODB.connection")
DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DSNName = DSNName & Server.MapPath("chik.mdb")
Conn.Open DSNName
mysql="UPDATE visitors SET visitor_name='" & visitor_name
mysql=sql & "', pass='" & pass
mysql=sql & "', email='" & email
mysql=sql & " where visitor_id=" & session("visitor_id")
Response.Write mysql
Response.end
conn.Execute sql
conn.Close
set conn=nothing
Response.Write "<center><h3>"
Response.Write "תודה על שהצטרפת למועדון"
Response.Write "</h3></center>"
end if
%>
</BODY>
</HTML>
שאילתה
where visitor_id=
קובץ global.asa
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
Application.Lock
Application("visitors")=Application("visitors")+1
Application("active_visitors")=Application("active_visitors")+1
Application.UnLock
session("visitor_id")=Request.Cookies("visitor_id")
dim conn
dim rs, sql
set conn=Server.CreateObject("ADODB.connection")
conn.open "dsn=chak"
if session("visitor_id")="" then ' New Visitor
conn.Execute "insert into visitors (visitor_id) values(" & session.SessionID & ")"
session("visitor_id")=session.SessionID
Response.Cookies("visitor_id")=session.SessionID
Response.Cookies("visitor_id").expires = now() + 60
else
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from visitors where visitor_id=" & Session("visitor_id")
rs.Open sql, conn
session("visitor_name")=rs("visitor_name")
session("email")=rs("email")
session("pass")=rs("pass")
rs.Close
set rs=nothing
end if
conn.Close
set conn=nothing
End Sub
Sub Session_OnEnd
Application.Lock
Application("active_visitors")=Application("active_visitors")-1
Application.UnLock
dim conn
set conn=Server.CreateObject("ADODB.connection")
conn.open "dsn=chak"
conn.Execute "update visitors set exit_time=now where visitor_id=" & session("visitor_id")
conn.Close
set conn=nothing
end sub
sub Application_OnStart
Application("visitors")=0
Application("active_visitors")=0
end sub
sub Application_OnEnd
end sub
</SCRIPT>