Oversæt fra PHP til ASP

Du laver din Connection og derefter :

MySql=\"select * from blah where blah =\'blah\'\"
Set MyRs=Conn.Execute(MySql)
If MyRs.Bof or MyRs.Eof then
  \'Hvis den IKKE findes
Else
  \'Hvis den findes
End If

dim sql, data, connection

sql=\"select * from blah where blah =\'$blah\'\"

set data=server.createobject(\"ADODB.Recordset\")
data.open sql,connection

if NOT(data.EOF)

end if

hvor connection er din forbindelse til databasen

altså det er en normal SQL database jeg vil connect.. lavet bare eksempeltet i MYSQL... fordi det jo hænger sammen med PHP..

dvs. problemet er også at lave forbindelsen til databasen?

Nej bare at tjecke om det findes i databasen...

i såfald kan du evt. bruge følgende kodestump til at lave en forbindelse til en access-db (ja, jeg ved det godt, men det var det eneste jeg lige kunne finde :o). db angiver stien til databasen.

dim strConnect, strNameDB, strConnection, connection

strConnect = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\"
strNameDB    = Server.MapPath(db)        \'hvor ligger db i filsystemet?
strConnection = strConnect & strNameDB
set connection = Server.CreateObject(\"ADODB.Connection\")    \'opret forbindelse til db
connection.open strConnection    \'åbn forbindelse


og så skal du bare huske at lukke dine forbindelser efter brug

select count(id) as antal from blah where blah=\'blah\'

set data=server.createobject(\"ADODB.Recordset\")
data.open sql,connection

if data(\"antal\")>0 then
  response.write \"Der er poster\"
else
  response.write \"Ingen poster\"
end if

Det er denne kode som ikke virker... for fejl i
( RS.Open SQL, Conn, 1, 3 )



<% if(request(\"navn\") > \"0\") then

username = request(\"navn\")
username = replace(username,\"<\",\"&lt;\")
username = replace(username,\">\",\"&gt;\")
session(\"navn\") = username

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"chat.mdb\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")

SQL = \"select * from user where navn =\'username\'\"
Set RS = Conn.Execute(SQL)

If RS.Bof or RS.Eof then
RS.Open SQL, Conn, 1, 3
rs.AddNew
rs(\"navn\") = username
rs.Update
Else
Response.write(\"Det valgte navn findes i forvejen\")
End If


rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing


%>

Prøv at ændre:

Set rs = Server.CreateObject(\"ADODB.Recordset\")
SQL = \"select * from user where navn =\'username\'\"
Set RS = Conn.Execute(SQL)
If RS.Bof or RS.Eof then
RS.Open SQL, Conn, 1, 3


Til følgende:

Set rs = Server.CreateObject(\"ADODB.Recordset\")
SQL = \"select * from user where navn =\'username\'\"
rs.open SQL, Conn

if rs.Bof or rs.Eof then