<%@ Language="VBScript" %>
<% Response.Expires=0 %>
<%
Dim Conn
Dim Rec
Dim Rec1
Set Rec = Server.CreateObject ("ADODB.RecordSet")
Set Rec1 = Server.CreateObject ("ADODB.RecordSet")
Set Conn = Server.CreateObject ("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("data/menegon.mdb") & ";"
'Conn.Open "aurora","",""
Dim SQL
'-----------------------------CONTATTORE-------------------------------
if Session("cont") <> 1 then
SQL = "SELECT * FROM tblcontattore where id='1'"
Rec.Open SQL,Conn,1,3
dim cont
cont = rec("contattore") + 1
rec.close
SQL = "Update tblcontattore set contattore='"& cont &"' Where id='1'"
rec.open sql,conn,1,3
Session("cont") = 1
end if
'rec.close
'---------------------------FINE CONTATTORE-----------------------------
%>
Nuova pagina 1
Today the Globalizzazion of the
World Market needs of an
always more fast line
of economic changes
It is for this reason
that our Company
is in the frequently searching of
new tecnologies to be always
more protagonist in the
Road transport World.
<%
'----------------------------CONTATTORE-------------------------
SQL = "SELECT * FROM tblcontattore where id='1'"
Rec.Open SQL,Conn,1,3
%>
