Noget Sjovt ASP Som Ikke Funker..!

Kom nu

Sløve pader

<%

    dim conn

    function OpenConn( DBName )

        Set Conn = Server.CreateObject("ADODB.Connection")
        ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
        Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

    end function

OpenConn("database.mdb")

%>


SQL = "select * from guestbook"



sådan tror jeg det er, jeg er ikk så god til ASP Mere. :-(

ups den sidste linje skal ikke med !!

nej, det er ikke en gæstebog.. men... det virker heller ikke, fordi det står længere nede i configgen.. Det er hvordan man vælger en af de 3 slags databaser.. Skriver man mon:

'strDBType = "sqlserver"
strDBType = 1 "access"
'strDBType = "mysql"

Jeg ved det ikke

okay men ja.... Jeg skrev også at den sidste linje ikk sq med

ja, men den var ikke opdateret da jeg skrev det

hmm jeg laver det når jeg kommer hjem eller kan du måske bruge noget fra min gæstebog:

<%

    dim conn

    function OpenConn( DBName )

        Set Conn = Server.CreateObject("ADODB.Connection")
        ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
        Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

    end function

OpenConn("guestbook.mdb")

%>



<%
    SQL = "select * from guestbook"
    set guestbook = conn.execute( SQL )
   
    if guestbook.eof then
        Response.Write "Gæstebogen er desværre tom! Vil du være den første der skriver i den? "
    Else
       
        Response.Write "<br><br>"
        do while not guestbook.eof
   

            Response.Write "<b>Navn :</b>&nbsp;&nbsp;" & guestbook("guest_name") & "<br>"
            Response.Write "<b>E-mail :</b>&nbsp;&nbsp;" & guestbook("email") & "<br>"
            Response.Write "<b>Kommentar :</b>&nbsp;&nbsp;" & guestbook("comments") & "<br>"
            Response.Write "<b>Hvordan fandt Du denne side :</b> "
            Select Case guestbook("from_where")
                Case 0 : Response.Write "Kendte siden"
                Case 1 : Response.Write "Gennem en ven"
                Case 2 : Response.Write "Hmmm ... don´t know!"
                Case 3 : Response.Write "Et link fra en anden side"
                Case 4 : Response.Write "En som skrev linket"
            End Select
            Response.Write "<br><b>Indtastet :</b>&nbsp;&nbsp;" & guestbook("created") & "<br>"
            Response.Write "<br><hr>"
                                   
            guestbook.movenext

        loop
   
        Response.Write "</table>"
               
    End If
    Response.Write "<br><br>Klik <a href='default.asp'>her</a> for at komme tilbage!"
   
'
%>

Jeg fatter hellere hvorfor du har to databaser, hvorfor har du ikk en til det hele???

Du skal bare skrive den kode du skrev:

'strDBType = "sqlserver"
strDBType = "access"
'strDBType = "mysql"

Tegnet ' udkommentere resten af linien ... så i ovenstående tilfælde vil Access blive brugt når der i koden bliver tjekket på hvad strDBType er lig med og den er lig med "access" ...

Tak for point :-)