Bäst före datum på kaka!

6 svar · 256 visningar · startad av M.Cheraghi 8 jan. 2004

M.CheraghiMedlem sedan juli 20015 107 inlägg

Frågan8 jan. 2004 19:44#1

Min lilla "poll-kaka" har problem med konserveringen! Den möglar till rätt fort!
I ren svenska! Kakan fungerar inte osm den skall. i cirka 10-15 minuter så fungerar kakan, sen så går det att rösta igen! :(

EDIT:) om jag vil stänga denna databas och alla kopplingar till 100% hur gör jag då? säg att det "finns" ett recordset också, det finns inte men tänk er att det finns när ni skriver stänga databasen koden :)

<%
svar = request.querystring("svar")

If Request.Cookies("vote").Haskeys = FALSE Then

   Response.Cookies("vote")("rost") = "voted"
	Response.Cookies("vote").Expires = Date + 1

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/poll.mdb")&";"
SQL = "Select * from svar"
Set RS = conn.execute(SQL)

ja = RS("ja") + 1
nej = RS("nej") + 1
vetej = RS("vetej") + 1

if svar = "ja" then
strSQL = "update svar SET ja = '"&ja&"'"
conn.execute(strSQL)
end if

if svar = "nej" then
strSQL = "update svar SET nej = '"&nej&"'"
conn.execute(strSQL)
end if

if svar = "vetej" then
strSQL = "update svar SET vetej = '"&vetej&"'"
conn.execute(strSQL)
end if
end if
response.redirect "inside.asp?page=hem"
%>

@ndersMedlem sedan juni 200032 967 inlägg

8 jan. 2004 19:51#2

Det går bra att göra din kod lite kortare:

<%
svar = request.querystring("svar")

If Request.Cookies("vote").Haskeys = FALSE Then

	Response.Cookies("vote")("rost") = "voted"
	Response.Cookies("vote").Expires = Date + 1

	Set conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/poll.mdb")&";"
	strSQL = "UPDATE svar SET " & svar & " = " & svar & "+1"
	conn.execute strSQL,,128
	[b]conn.close
	set conn=nothing[/b]
End if
response.redirect "inside.asp?page=hem"
%>

Se de fetmarkerade raderna. Det passar bra att göra så med connection- och recordsetobjekt för att ha ihjäl dem.

Vad gäller frågan om kakans giltighet vet jag inte. Koden ser, tycker jag, korrekt ut.

Du har inte några knasiga inställningar i din läsare?

mvh

M.CheraghiMedlem sedan juli 20015 107 inlägg

8 jan. 2004 19:55#3

Okej! Tack för hjälpen!

PS för att vara petnoga ASPguru, så skall end if efter 128 i sql frågan _inte_ finnas ;)

mm kanske e knas på min läsare.. isåfall knas på mozilla och IE

MeleaMedlem sedan juli 20033 147 inlägg

8 jan. 2004 19:57#4

Du har så rätt ;)

M.CheraghiMedlem sedan juli 20015 107 inlägg

8 jan. 2004 19:58#5

Melea skrev:

Du har så rätt ;)

:OO

@ndersMedlem sedan juni 200032 967 inlägg

8 jan. 2004 20:00#6

M.Cheraghi skrev:

PS för att vara petnoga ASPguru, så skall end if efter 128 i sql frågan _inte_ finnas ;)

Das stimmt. Blev lite halvgalet där kan man tro. ;)

Mvh

M.CheraghiMedlem sedan juli 20015 107 inlägg

8 jan. 2004 20:04#7

@nders skrev:

M.Cheraghi skrev:

PS för att vara petnoga ASPguru, så skall end if efter 128 i sql frågan _inte_ finnas ;)

Das stimmt. Blev lite halvgalet där kan man tro. ;)

Mvh

Nerå! Det är lugna puckar med tanke på att du hjälpte mer än du hade fel så är du godkänd ;) :) *kaxig*