אחרון השוקולדים
New member
שאלה בASP
איך מתעדים את הח*א הזה? <% dim clubrs,conn str=request.form("id") set conn=server.createobject("ADODB.connection") conn.open "driver={microsoft access driver (*.mdb)};"&_ "dbq=" & server.mappath ("/reut/database/data.mdb") & ";" set clubrs=server.createobject("ADODB.recordset") mysql="select * from members where id=" mysql = mysql & "'" & str & "'" clubrs.open mysql,conn,2,2 if clubrs.bof then clubrs.close set clubrs=nothing conn.close set conn=nothing set conn=server.createobject("ADODB.connection") conn.open "driver={microsoft access driver (*.mdb)};"&_ "dbq=" & server.mappath ("/reut/database/data.mdb") & ";" set clubrs=server.createobject("ADODB.recordset") 'יצירת אובייקט רשומה' mysql="select * from members where 1=0" 'התנאי לא אפשרי ולכן יבחרו כל השדות' clubrs.open mysql,conn,2,2 clubrs.addnew clubrs.fields("FamilyName").value = request.form("FamilyName") clubrs.fields("Name").value = request.form("Name") clubrs.fields("Email").value = request.form("Email") clubrs.fields("Pass").value = request.form("Pass") clubrs.fields("Sex").value = request.form("Sex") clubrs.fields("ID").value = request.form("ID") clubrs.update clubrs.close set clubrs=nothing conn.close set conn=nothing response.write "נתוניך התקבלו</br>" response.write request.form("Name") response.write " תודה רבה" else response.write " מספר זהות כבר קיים, אנא הכנס מספר אחר " end if %>
איך מתעדים את הח*א הזה? <% dim clubrs,conn str=request.form("id") set conn=server.createobject("ADODB.connection") conn.open "driver={microsoft access driver (*.mdb)};"&_ "dbq=" & server.mappath ("/reut/database/data.mdb") & ";" set clubrs=server.createobject("ADODB.recordset") mysql="select * from members where id=" mysql = mysql & "'" & str & "'" clubrs.open mysql,conn,2,2 if clubrs.bof then clubrs.close set clubrs=nothing conn.close set conn=nothing set conn=server.createobject("ADODB.connection") conn.open "driver={microsoft access driver (*.mdb)};"&_ "dbq=" & server.mappath ("/reut/database/data.mdb") & ";" set clubrs=server.createobject("ADODB.recordset") 'יצירת אובייקט רשומה' mysql="select * from members where 1=0" 'התנאי לא אפשרי ולכן יבחרו כל השדות' clubrs.open mysql,conn,2,2 clubrs.addnew clubrs.fields("FamilyName").value = request.form("FamilyName") clubrs.fields("Name").value = request.form("Name") clubrs.fields("Email").value = request.form("Email") clubrs.fields("Pass").value = request.form("Pass") clubrs.fields("Sex").value = request.form("Sex") clubrs.fields("ID").value = request.form("ID") clubrs.update clubrs.close set clubrs=nothing conn.close set conn=nothing response.write "נתוניך התקבלו</br>" response.write request.form("Name") response.write " תודה רבה" else response.write " מספר זהות כבר קיים, אנא הכנס מספר אחר " end if %>