7 svar · 246 visningar · startad av voigtann1
Om man håller på med en hemsida med nyheter.
först en kort info om nyheten och sen 'läs mer'
när man trycker på läs mer så ska man +1 i databasen om just den nyheten samt göra en cookie just för det inlägged.. hur gör man det i korta drag?
I mitt forum ser det ut så här:
SQLStmt = "SELECT * FROM questions WHERE id = " & id
RS.open SQLStmt, databas,1
last = request.cookies("last")
if last <> ""& id then
SQL = "UPDATE questions SET klick = klick + 1 WHERE id ="& id databas.Execute SQL
Response.cookies("last")= ""& id
Response.cookies("last").expires = DateAdd("d",10,Now())
end if
Jag döper kakan till Id nummret i varje inlägg och jag har en tabell i databasen som heter klick.
MVH Jesper
<%
On Error Resume Next
Set Connect = Server.CreateObject("ADODB.Connection")
connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("../db/databas.mdb")
SQLStmt = "SELECT * FROM files where where ID = "& Request.QueryString("id")
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.open SQLStmt, databas,1
if RecSet("global") = true then
id = Request.QueryString("ID")
last = request.cookies("last")
if last <> ""& id then
[b]SQL = "UPDATE files SET dl = dl + 1 WHERE id ="& id databas.Execute SQL[/b]
Response.cookies("last")= ""& id
Response.cookies("last").expires = DateAdd("d",10,Now())
end if
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.DownloadFile("d:\voigtan\config\members\" & RecSet("user") &"\"& id)
else
Response.write "error"
end if
%>
error:
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/voigtan/config/funk/download.asp, line 16, column 52
Du får dela upp den feta raden på två
RecSet.open SQLStmt, Connect,1
if RecSet("global") = true then
id = Request.QueryString("ID")
last = request.cookies("last")
if last <> ""& id then
SQL = "UPDATE files SET dl = dl + 1 WHERE id ="& id
connect.Execute SQL
Dessutom så använder du databas fast det connectionobjekt som du skapade heter connect.
Får ett attat nu:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC driver does not support the requested properties.
/voigtan/config/funk/download.asp, line 9
rad 9:
RecSet.open SQLStmt, databas,1
Byt databas mot connect
Fixat.. tack! för all hjälp =)