Response Redirect

Øøøh

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/DB.mdb")
Conn.Open DSN
SQL = "Select * FROM Kunde WHERE ID=" & Session("ID")
Set rs = Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
response.redirect rs("Firmanavn")
%>

?

du kunne evt. kalde det med en function.

response.redirect ( call My_function() )

function My_function()
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/DB.mdb")
Conn.Open DSN
SQL = "Select * FROM Kunde WHERE ID=" & Session("ID")
Set rs = Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
response.redirect rs("Firmanavn")
end function

Glemte en lille ting, der hvor firmanavn kommer skal der desuden stå default.asp?mode=Oversigt&Firma= og så skal firmanavn outputtet komme.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/DB.mdb")
Conn.Open DSN
SQL = "Select * FROM Kunde WHERE ID=" & Session("ID")
Set rs = Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
response.redirect rs("Firmanavn")
%>

response.redirect "default.asp?mode=Oversigt&Firma=" & rs("Firmanavn")

vel?

coderdk ligger du lige ind som svar ?

Yessir :)

Server.Transfer kan vist også bruges hvis jeg ikke huske meget galt :/

hehe