RECORDSET EDIT Recordset Addnew

Contincr.asp



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'***************************************************************************************

' dentro directory D:\inetpub\wwwroot\lavarosso\mac

' lo lanci con "http://www.lavarosso.com/MAC/Contincr.asp?NomeForm=merda2&Img=2&LunghezzaContatore=6&Mpath=2&Block=merda.html"

'***************************************************************************************

' <p style="position:fixed; bottom:10px">

' <script language="JavaScript" src=""http://www.lavarosso.com/mac/ContatoreNew.asp?NomeForm=http://www.lavarosso.com/PROVACONTATORE&Img=4&LunghezzaContatore=6&Mpath=2&Block=Prova.html">

' </p>

' Paramentri : NomeForm, Img (1,2,3,4,5), LunghezzaContatore

'***************************************************************************************





dim Conta
DIM nomeDominio, indirizzoIp, browserSistemaOperativo, NomeForm, VImg, VLunghezzaContatore

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
NomeForm = Request.QueryString("NomeForm")
VImg = Request.QueryString("Img")
VLunghezzaContatore = Request.QueryString("LunghezzaContatore")
Mpath = Request.QueryString("Mpath")




' inserimento dati

Dim sc, cn, rs, rs2
sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc & Server.MapPath("../mdb-database/Contatore.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection = Cn
rs.CursorLocation = 3 'adUseClient
rs.CursorType = 1 ' adOpenKeyset
rs.LockType = 3 'adLockOptimistic
rs.Source = "SELECT * FROM Contatore ORDER BY Pagina, REMOTE_ADDR"
rs.open



rs.addnew
rs("Pagina") = Nomeform
rs("REMOTE_ADDR") = indirizzoIp
rs("HTTP_USER_AGENT") = browserSistemaOperativo
rs("MySessione") = session("MySessione")
rs.update




response.Write(Nomeform & "<br>")
response.Write("SELECT * FROM PagineConta" & "<br>" )

dim sql


dim Contatore, Id
Set rs2 = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM PagineConta order by Pagina "

rs2.ActiveConnection = Cn
rs2.CursorLocation = 3 'adUseClient
rs2.CursorType = 1 ' adOpenKeyset
rs2.LockType = 3 'adLockOptimistic
rs2.open = sql


rs2.filter = "Pagina='" & nomeform & "'"

'Trovo = False

response.Write("<br> EOF ? " & rs2.eof & "<br> ")
response.Write("<br> RecordCount " & rs2.recordcount & "<br>" & "<br>" )


if not rs2.eof then
contatore = rs2("Contatore") + 1
response.Write("<br> Contatore prima " & rs2("Contatore") & "<br> " )


id = rs2("id")

sql = "UPDATE PagineConta SET PagineConta.Contatore = " & contatore & " WHERE Id=" & id & ";"
response.Write( "<br>" & sql & "<br> ")
cn.execute(sql)
response.Write("<br> modifica SQL AVVENUTa CON SUCCESSO <br> " )
rs2.requery
response.Write("<br> Contatore Dopo " & rs2("Contatore") & "<br> ")

else
' il record non esiste


sql = "INSERT INTO PagineConta ([Contatore], [Pagina], [DataInserimento]) VALUES (1, '" & nomeform & "', '" & Now() & "');"
response.Write("<br> inserimento SQL " & sql & "<br> ")


cn.execute(sql)
response.Write("<br> inserimento SQL AVVENUTO CON SUCCESSO <br> " )
end if


rs.close
rs2.close


cn.close
set cn = nothing


response.Write("<br> http://www.lavarosso.com/MAC/Contincr.asp?NomeForm=" & NomeForm & "&Img=" & Vimg & "&LunghezzaContatore=" & VLunghezzaContatore & "&Mpath=" & Mpath & "<br> " )
%>