% if request.querystring("ID") <> "" then dbLoc = "/datenbank/coco.mdb" cnpath="DBQ=" & server.mappath(dbLoc) MypartnerDsn = "DRIVER={Microsoft Access Driver (*.mdb)};" & cnpath Set MypartnerConn=Server.CreateObject("ADODB.Connection") MypartnerConn.Open MypartnerDsn ID=request.querystring("ID") sqltemp = "select ID, Clicks, URL From partner WHERE ID =" & ID set rspartner=MypartnerConn.execute(sqltemp) clicks = rspartner("Clicks") rspartner.close set rspartner=nothing sqltemp = "UPDATE partner SET Clicks='" sqltemp = sqltemp & clicks +1 & "'" sqltemp = sqltemp & "WHERE ID=" & ID set rspartner=MypartnerConn.execute(sqltemp) set rspartner=nothing MypartnerConn.Close set MypartnerConn=nothing end if %>
![]() |
||
|
Neue Alben von Coco Records: |
|||
Helena Mace "Enlightened" |
![]() |
DARK OCEAN
"Automata"
|
|
|
|
|
||
Die Music von CONNY CONRAD hier als download erhältlich |
||
|
CoCo records international * Sommerhalde 11 * D-72184 Eutingen Tel + 49-(0)07457-939577 * Fax + 49-(0)07457-939588 e-mail: coco@germanynet.de |