Skip to content

Instantly share code, notes, and snippets.

@weppekroka
weppekroka / CALCOLO.ASP
Last active April 18, 2019 18:17
AGGIORNAMENTO AUTOMATICO CREDITI
<% dim data_source,totale
Set Conn = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=" & server.mappath("/DATABASE.mdb")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};" & cnpath
set rstmp9 = Server.CreateObject("ADODB.recordset")
ssql = "SELECT * FROM Administrator where UserID='"&request("login")&"' and password='"&request("password")&"'"
rsTmp9.open sSQL,Conn,3,3
login=request("login")
password=request("password")
if rstmp9.eof then

Keybase proof

I hereby claim:

  • I am weppekroka on github.
  • I am weppekroka (https://keybase.io/weppekroka) on keybase.
  • I have a public key whose fingerprint is 2550 55E9 B1E0 DBB1 979A AE56 FE33 31B9 4E46 E5D2

To claim this, I am signing this object: