connection string i ASP

Du skriver: "Jeg har denne kode, som der skal rettes lidt på."

Ok. Hvor er koden?

Det er vidst også andre små ting som skal rettes til i koden for at den kan connecte til databasen, så hvis i gør det ville det være skønt.

<%
    Response.Buffer = True

    Function opendb()
        Set conn = Server.CreateObject("ADODB.Connection")
        DNS = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("db/ahf.mdb")
        conn.Open(DNS)
        set opendb = conn
    End function

    Function closedb ()
        conn.close
        Set conn = nothing
    End Function

    'sideinformation

    function getpage
        pagestr = request.querystring("page")
       
        if pagestr = "" then pagestr = 1
           
        getpage = pagestr
    end function

    function getpagename
        if getpage() = 1 then getpagename = "forside"
   
        if getpage() = 2 then getpagename = "information"

        if getpage() = 3 then getpagename = "klassen"

        if getpage() = 4 then getpagename = "kalender"
   
        if getpage() = 5 then getpagename = "forum"

        if getpage() = 6 then getpagename = "tagwall"
   
        if getpage() = 7 then getpagename = "kontakt"

        if getpage() = 8 then getpagename = "links"

        if getpage() = 9 then getpagename = "login"

        if getpage() = 10 then getpagename = "registrering"

        if getpage() = 11 then getpagename = "administration"
    end function

    function getmode
        modestr = request.querystring("mode")
       
        if modestr = "" then modestr = "normal"
       
        getmode = modestr
    end function


    Function Makelink(strInput)
            Set objRegExpHTTP1 = New RegExp
            Set objRegExpHTTP2 = New RegExp   
            Set objRegExpEMail = New RegExp

            objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
            objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}\S*)"
            objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"
   
            objRegExpHTTP1.Global = True
            objRegExpHTTP2.Global = True
            objRegExpEMail.Global = True

            objRegExpHTTP1.IgnoreCase = True
            objRegExpHTTP2.IgnoreCase = True
            objRegExpEMail.IgnoreCase = True

            strOutput = objRegExpEMail.Replace(strInput, " <a href='mailto:$1'>$1</a> ")
            strOutput = objRegExpHTTP1.Replace(strOutput, " <a href='$1$2' target='_blank'>$1$2</a> ")
            strOutput = objRegExpHTTP2.Replace(strOutput, " <a href='http://$2' target='_blank'>$2</a> ")
       
            Set objRegExpHTTP2 = Nothing
            set objRegExpHTTP1 = Nothing
            Set objRegExpEMail = Nothing

            Makelink = strOutput
        End Function

   
    'adgangskontrol

    function logout
        session("login") = ""
        session("memberid") = ""
        session("username") = ""
        session("authlevel") = ""
    end function

    function restricted
        if session("login") = "" then
        response.redirect "?page=9"
        end if
    end function
   
    function ban
        SQL = "SELECT COUNT(*) as found FROM ban WHERE ip = '" & request.ServerVariables("REMOTE_HOST") & "'"
        set RS = conn.execute(SQL)
       
        if RS("found") > 0 then
        response.redirect("pages/llamah.asp")
        end if
       
        RS.close
        set RS = nothing
    end function
%>

Og bortset fra det.... Du bruger PHPMYADMIN.... Til ASP? Er du nu sikker på spørgsmålet er skrevet i den rigtige kategori? :-)

nej - egentlig ikke. Men kan du lave det ?!

et eksempel:

Session("connStr2")="Driver={MySQL};Server=Dinserver;DATABASE=DinDB;UID=Ditlogin;PWD=xxxxx;"

kan du lave det i min kode!!1

Jeg er stadig ikke sikker på hvad det er du vil have. Du skriver du bruger PHPMYADMIN, hvilket for mig virker som om dit site er lavet i PHP og ikke ASP?

hvis det er asp, lav din function getpagename til det her:

    function getpagename
    Select case getpage()
    case "1"
        getpagename = "forside"
        case "2"
        getpagename = "information"
    ' du forsætter bare ned til 11

    case else
        ' hvis getpage ikke er mellem 1 og 11 udføres denne kode:
        response.write "du må kune vælge mellem 1 og 11"= "klassen"
    end select
    end function

hele sitet er lavet i asp, men b-obe understøtter ikke access

rettelse (grafik fejl):
function getpagename
Select case getpage()

case "1"
getpagename = "forside"

case "2"
getpagename = "information"

' du forsætter bare ned til 11

case else
' hvis getpage ikke er mellem 1 og 11 udføres denne kode:
response.write "du må kune vælge mellem 1 og 11"= "klassen"

end select
end function

linien skulle have været:
response.write "du må kune vælge mellem 1 og 11"

damn you copy&paste! :)

Jamen - i den kode som jeg har vedlagt. Connecter den ikke til en database.
Lige som den ville have heddet $db=mysql_connect("localhost", "brugernavn", "password");
mysql_select_db("brugernavn", $db); i php.

Hvis der er nogle som kan lave koden om, så den connecter til en MySQL database får de pointene. Men det SKAL laves i koden, så jeg vil ikke bare modtage en kodestump!!!

prøver at omfomulere spm!