haj til mySQL/ASP

jeg mener at have hørt at man kunne bruge mySQL til asp og jeg har meget brug for en til at "overføre" min Microsoft Access Databaser til mySQL for det kan man kun brugehos b-one.

her er min kode så selvfølgelig censureret. til medlemmer

#code_start#

<%
set conn = server.createobject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("*.mdb")
Conn.Open DSN

if request("mode") = "nyklanmedlem" then
strSQL = "Update bruger set klanmedlem = 'Ja' where brugernavn = '" & Request("brugernavn") & "'"
Conn.Execute(strSQL)
Response.Redirect "default.asp?side=medlemmer"
end if

if request("mode") = "sletklanmedlem" then
strSQL = "Update bruger set klanmedlem = 'Nej' where brugernavn = '" & Request("brugernavn") & "'"
Conn.Execute(strSQL)
Response.Redirect "default.asp?side=medlemmer"
end if

if request ("mode") = "sletbruger" then
strSQL = "delete from bruger where brugernavn = '" & Request("brugernavn") & "'"
conn.Execute(strSQL)
end if

strSQL = "select * from bruger order by klanmedlem"
set rs = conn.execute(strSQL)

Do
if session("admin") = "Ja" then
if rs("klanmedlem") = "Nej" then
%><a href="default.asp?side=medlemmer&mode=nyklanmedlem&brugernavn=<%= rs("brugernavn") %>"><%
else
%></a><a href="default.asp?side=medlemmer&mode=sletklanmedlem&brugernavn=<%= rs("brugernavn") %>"><%
end if
end if
Response.write rs("brugernavn") & "</a>, klanmedlem: " & rs("klanmedlem") & ", "%>
</a>
<a href="default.asp?side=profil&brugernavn=<%= rs("brugernavn")%>">profil</a>,
<%if session("admin") = "Ja" then %>
<a href="default.asp?side=medlemmer&mode=sletbruger&brugernavn=<%= rs("brugernavn")%>">slet bruger</a>
<% end if
Response.Write "<br>"
rs.movenext
Loop While not (rs.bof or rs.eof)

conn.close
set conn = nothing
%>

#code_end#


her er min kode til min create side
#code_start#

<%
if request("mode") = "create" then
set conn = server.createobject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("*.mdb")
Conn.Open DSN

tekst = replace(request("tekst"),vbcrlf, "<br>")

strSQL = "insert into bruger ("

strSQL = strSQL & "brugernavn,"
strSQL = strSQL & "adgangskode,"
strSQL = strSQL & "oprettet,"
strSQL = strSQL & "counter_navn,"
strSQL = strSQL & "rigtige_navn,"
strSQL = strSQL & "tlf,"
strSQL = strSQL & "tekst,"
strSQL = strSQL & "email)"

strSQL = strSQL & "values("

strSQL = strSQL & "'" & request("brugernavn") & "',"
strSQL = strSQL & "'" & request("adgangskode") & "',"
strSQL = strSQL & "'" & now & "',"
strSQL = strSQL & "'" & request("counter_navn") & "',"
strSQL = strSQL & "'" & request("rigtige_navn") & "',"
strSQL = strSQL & "'" & request("tlf") & "',"
strSQL = strSQL & "'" & request("tekst") & "',"
strSQL = strSQL & "'" & request("email") & "')"

Conn.Execute(strSQL)

Conn.Close
set Conn = nothing

#code_end#

her er koden til min login side:

#code_start#

<%
if request("mode") = "login" then
set conn = server.createobject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("../bdatab.mdb")
Conn.Open DSN

strSQL = "select * from bruger where brugernavn = '" & replace(Request("navn"), "'","''") & "' and adgangskode = '" & replace(request("adgangskode"), "'", "''") & "'"
set rs = conn.execute(strSQL)

if (rs.eof or rs.bof) then
Response.Write "forkert brugernavn eller adgangskode"
else
session("brugernavn") = request("navn")
session("login") = "ja"
session("klanmedlem") = rs("klanmedlem")

if rs("brugernavn") = "********" and rs("adgangskode") = "*******" then
session("admin") = "Ja"
end if
strSQL = "Update bruger set sidst_login = '" & now & "' where brugernavn = '" & Session("brugernavn") & "'"
Conn.Execute(strSQL)

conn.close
set conn = nothing

Response.redirect "../default.asp"

end if
else
%>

#code_end#

Her er koden til min profil side:

#code_start#

set conn = server.createobject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("*.mdb")
Conn.Open DSN

strSQL = "select * from bruger where brugernavn='" & Request("brugernavn") & "'"
set rs = conn.execute(strSQL)

Response.Write "brugernavn: " & rs("brugernavn") & " <br>"
Response.Write "sidste login: " &  rs("sidst_login") & " <br>"
Response.Write "counter navn: " &  rs("counter_navn") & " <br>"
Response.Write "rigtig navn: " & rs("rigtige_navn") & " <br>"
Response.Write "oprettet: " & rs("oprettet") & " <br>"
Response.Write "email: " & rs("email") & " <br>"
Response.Write "fritekst: " & rs("tekst") & " <br>"


conn.close
set conn = nothing

#code_end#

Her er koden til min rediger side:

#code_start#

set conn = server.createobject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("*.mdb")
Conn.Open DSN
if request("mode") = "rediger" then
tekst = replace(request("tekst"),vbcrlf, "<br>")

strSQL = "Update bruger set "
strSQL = strSQL & "adgangskode = '" & request("adgangskode") & "', "
strSQL = strSQL & "email = '" & request("email") & "', "
strSQL = strSQL & "counter_navn = '" & request("counter_navn") & "', "
strSQL = strSQL & "rigtige_navn = '" & request("rigtige_navn") & "', "
strSQL = strSQL & "tlf = '" & request("tlf") & "', " 
strSQL = strSQL & "tekst = '" & request("tekst") & "' "
strSQL = strSQL & "where brugernavn = '" & Session("brugernavn") & "'"

Conn.Execute(strSQL)

conn.close
set conn = nothing

Response.Redirect "default.asp?side=profil&brugernavn=" & Session("brugernavn")
else
strSQL = "select * from bruger where brugernavn = '" & session("brugernavn") & "'"
set rs = conn.execute(strSQL)
%>


<center><b>Rediger oplysninger:</b></center>
<table align="center">
<form method="post" action="default.asp?side=rediger&mode=rediger">
    <tr>
        <td>
            brugernavn
        </td>
        <td>
            <input type="text" name="brugernavn" disabled="true" value="<%= rs("brugernavn") %>">
        </td>
    </tr>
    <tr>
        <td>
            password
        </td>
        <td>
            <input type="password" name="adgangskode" value="<%= rs("adgangskode") %>">
        </td>
    </tr>
    <tr>
        <td>
            email
        </td>
        <td>
            <input type="text" name="email" value="<%= rs("email") %>">
        </td>
    </tr>
    <tr>
        <td>
            counter navn
        </td>
        <td>
            <input type="text" name="counter_navn" value="<%= rs("counter_navn") %>">
        </td>
    </tr>
    <tr>
        <td>
            rigtige navn
        </td>
        <td>
            <input type="text" name="rigtige_navn" value="<%= rs("rigtige_navn") %>">
        </td>
    </tr>
    <tr>
        <td>
            tlf
        </td>
        <td>
            <input type="text" name="tlf" value="<%= rs("tlf") %>">
        </td>
    </tr>
    <tr>
        <td colspan=2>
            fritekst<br>
            <%tekst = replace(rs("tekst"), "<br>", vbcrlf)%>
            <textarea cols="50" rows="15" name="tekst"><%= tekst%></textarea>
        </td>
    </tr>
    <tr>
        <td colspan=2>
            <input type="submit" name="send" value="rediger">
        </td>
    </tr>
</form>
</table>
<%
end if
conn.close
set conn = nothing
%>