<%@ Language=VBScript %>
Formulář k odeslání
<%
On Error Resume Next
idu = Session("Id")
if (idu > 0) then
soubor = "../_private/user.mdb"
zdroj = "DBQ=" & Server.MapPath(soubor)
set objConn = server.createobject("adodb.connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & zdroj
set A = objConn.execute("SELECT * FROM user WHERE id = " & idu)
firma = A(3)
osoba = A(4)
ulice = A(5)
mesto = A(6)
psc = A(7)
ico = A(8)
dic = A(9)
email = A("email")
A.Close
Set A = Nothing
objConn.Close
Set objConn = Nothing
else
firma = ""
osoba = ""
ulice = ""
mesto = ""
psc = ""
ico = ""
dic = ""
email = "@"
end If
%>