הקוד לא עובד ASP - הוסטס

idan43 · 04-09-06, 12:00

קוד:

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


	ההרשמה לפורום נפתחה - אפשרות רישום לכל אימייל (דומיינים פרטיים, gmail, הוטמייל..)!

חברים פעילים הצופים באשכול זה: 1 (0 חברים ו- 1 אורחים)