MySQL.

MySQL er en rigtig server, som kan bruges af mange klienter på samme tid. Access dør hurtig da det kun er en fildatabase.

men hvordan virker det ... fungerer det som en almindelig access database ... det vil sige den måde man henter og lagre informationer til den?

Stort set alle databaser bruger SQL. Dog kan der være forskel på om de understøtter alle ting der er beskrevet i standard ANSI SQL92. MySQL understøtter f.eks. ikke subselects endnu (i stable).

Altså vil en kode som følgende virke bare man ændre den fra at køre med en .mdb til at køre med mysql?

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"

SQL = "SELECT DISTINCT Booking.bookid as bId, Booking.Dato, Booking.initialer, Booking.kommentar, Booking.foldevæg, Booking.projektør, Booking.KaffeThe, Booking.kaffekande, Booking.tekande, Booking.rundstykker, Booking.ost, Booking.eftermiddagskage, Booking.småkager, Booking.frugt, Booking.isvandkande, Booking.opdækning_uden_dug, Booking.opdækning_med_dug, Booking.buffet, Booking.buffetantal, Booking.bordopstilling FROM booking WHERE Booking.initialer = '" & Session("auth_Initial") & "'  AND dato >= Date() GROUP BY Booking.bookid, Booking.Dato, Booking.initialer, Booking.kommentar, Booking.foldevæg, Booking.projektør, Booking.KaffeThe, Booking.kaffekande, Booking.tekande, Booking.rundstykker, Booking.ost, Booking.eftermiddagskage, Booking.småkager, Booking.frugt, Booking.isvandkande, Booking.opdækning_uden_dug, Booking.opdækning_med_dug, Booking.buffet, Booking.buffetantal, Booking.bordopstilling ORDER BY Booking.bookid"
rs.Open SQL, Conn

If rs.BOF AND rs.EOF then
  Response.Write "Du har ingen fremtidige reservationer."
  Response.write "<br>"

Else
Response.write "Tyk på et af reservationsnavnene for at få flere oplysninger om reservationen."
Response.write "<br><br>"
   
Response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber1'>"
Response.write "<tr>"
Response.write "<td width='6%'>Nr</td>"
Response.write "<td width='43%'>Reservation</td>"
Response.write "<td width='17%'>Dato</td>"
Response.write "<td width='13%'>Kantineydelser</td>"
Response.write "<td width='24%'></td>"
Response.write "</tr>"
Response.write "</table>"

        x = 0
        For x = 1 to 999999
        If rs.eof then
        Exit For
        Else

  'URL Convert
  kommentar = "<A HREF=""#"" TARGET=""_new"" Onclick=""window.open('info.asp?Id=" & rs("bid") & "', 'Info','width=600,height=675'); return false"">" & rs("kommentar") & "</A>"
  aendre = "<A HREF=""#"" TARGET=""_new"" Onclick=""window.open('aendre.asp?Id=" & rs("bid") & "', 'Slet','width=620, height=800, scrollbars=yes'); return false""> Ændre</A>"
  slet = "<A HREF=""slet1.asp?Id=" & rs("bid") & """onclick=""document.getElementById('ventspan').style.display='inline'""> Slet</A>"
  'End URL Convert

response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber1'>"
response.write "<tr>"
response.write "<td width='5%'>"& rs("bId") &"</td>"
response.write "<td width='42.5%'>"
response.write kommentar
response.write "</td>"
response.write "<td width='17.5%'>"& rs("dato") &"</td>"
response.write "<td width='10%'>"

str = Trim(" " & rs("KaffeThe") & rs("kaffekande") & rs("tekande") & rs("Rundstykker") & rs("ost") & rs("Eftermiddagskage") & rs("Småkager") & rs("Frugt") & rs("isvandkande") & rs("opdækning_uden_dug") & rs("opdækning_med_dug") & rs("buffet"))
if Len(str) = 0 then
Response.Write "Nej"
Else
Response.Write "Ja"
End if

response.write"</td>"
Response.write "<td width='8%'></td>"
response.write "<td width='10%'>"
response.write aendre
response.write "</td>"
response.write "<td width='7%'>"
response.write slet
response.write "</td>"
response.write "</tr>"
response.write "</table>"

rs.MoveNext
End If
Next
End If
%>

Ja, det er blot måden du forbinder på der skal ændres i:

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"

Spørg mig ikke om hvordan - asp sutter så jeg holder mig væk.