Avatar billede sortsovs Nybegynder
12. april 2003 - 14:36 Der er 3 kommentarer og
1 løsning

TagWall??

Hey Derude.!

Jeg står med de her sætninger:

<%
   
    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")
   
    if request ("mode") = "opret" then
        SQL = "insert into guestbook (guest_name, comments) values ('" & request("guest_name") & "', '" & request("comments") & "'  )"
        Conn.execute( SQL )
        Besked = "<br><h3></h3>"
        Besked2 = "<a href='viewguest.asp'>Tilbage til Gæstebogen</a><br><br>"
    end if

%>


Og når den har skrevet til min DB vil jeg gerne sendes til viewguest.asp !

Håber i kan hjælpe mig!

Mvh nicolaj Jensen
Avatar billede -master-d- Nybegynder
12. april 2003 - 14:37 #1
Jo sådan her gør du :

<%
   
    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")
   
    if request ("mode") = "opret" then
        SQL = "insert into guestbook (guest_name, comments) values ('" & request("guest_name") & "', '" & request("comments") & "'  )"
        Conn.execute( SQL )
    response.redirect "viewguest.asp"
        Besked = "<br><h3></h3>"
        Besked2 = "<a href='viewguest.asp'>Tilbage til Gæstebogen</a><br><br>"
    end if

%>
Avatar billede -master-d- Nybegynder
12. april 2003 - 14:38 #2
Eller sådan her hvis du gerne vil have udskrevet dit link også..

<%
   
    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")
   
    if request ("mode") = "opret" then
        SQL = "insert into guestbook (guest_name, comments) values ('" & request("guest_name") & "', '" & request("comments") & "'  )"
        Conn.execute( SQL )
        Besked = "<br><h3></h3>"
        Besked2 = "<a href='viewguest.asp'>Tilbage til Gæstebogen</a><br><br>"
    response.redirect "viewguest.asp"
    end if

%>
Avatar billede sortsovs Nybegynder
12. april 2003 - 14:39 #3
Værsgo Maser D...

Det virkede sørme !
Avatar billede -master-d- Nybegynder
12. april 2003 - 14:41 #4
var så lidt.. takker for pointene.

PS. Husk lige at lukke det andet spørgsmål i JAVA-kategorien
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester