<% if len(session("username"))=0 then %>
Please logon
To access this confidential information you must first logon
to this site by using this login form.
<% else
response.Write "Indkøbesseddel "
strForConnection_GL ="DRIVER={mySQL}; Server=mydb1.surftown.dk; Database=peterse_test; Uid=peterse_jlp; Pwd=jlpjlp"
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
conn.Open strForConnection_GL
set rs = Conn.Execute ("SELECT * FROM VareListe WHERE Mangler <= CURDATE() ORDER BY Gruppe,Varenavn")
Response.Write ""
%>
<% end if %>
|
