uppdatera går inte :-(

8 svar · 259 visningar · startad av Rodan 7 sep. 2002

RodanMedlem sedan juli 20021 523 inlägg

Frågan7 sep. 2002 17:03#1

vad är det för fel... man ska kunna uppdatera varje dag... engång per dag.. men det funkar inte.... får inget fel meddelande

                                             koden

------------------------------------------------------------------------------------
<%

If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
Response.Redirect "default.asp"
End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("xxxxxxxx")&";pwd=xxxxxx"
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select Points_update From Points,members Where Points_UsrId=" & Session("ID") &""

%>
<div align="left">
<table border="1" width="564" height="1">
<tr>
<td width="63" height="10"><font face="Verdana" size="1">Status</font></td>
<td width="485" height="10" colspan="2"></td>
</tr>
<tr>
<td width="65" height="1"><font face="Verdana" size="1">Mess:</font></td>
<td width="196" height="1">></td>
<td width="281" height="1" rowspan="4"><font face="Verdana" size="1">Här
hittar du all status du tjänat in..... du får status för varje
mess du skicka... Max 10 ... </font>
<p><font face="Verdana" size="1">1 mess... 1 status poäng<br>
1 forums inlägg 3 status poäng<br>
1 gästbok inlägg 1 status poäng<br>
1 inne & ute lista 2 status poäng<br>
<br>
sen kan du få extra status poäng det kan va upp till 200 extra status
poäng.... för mer info klicka här .....</font></td>
</tr>
<tr>
<td width="65" height="1"><font face="Verdana" size="1">Gästbok:</font></td>
<td width="196" height="1"></td>
</tr>
<tr>
<td width="65" height="1"><font face="Verdana" size="1">Forum:</font></td>
<td width="196" height="1">Kommner snart</td>
</tr>
<tr>
<td width="65" height="1"><font face="Verdana" size="1">Inne & Ute</font></td>
<td width="196" height="1">Kommer Snart</td>
</tr>
</table>
</div>
<div align="left">
<table border="1" width="565" height="37">
<tr>
<td width="565" height="37"><font size="1" face="Verdana"><b>Extra Status
Poäng: </b></font></td>
</tr>
</table>
</div>

<div align="left">
<table border="1" width="565" height="19">
<tr>
<td width="565" height="19">
<%
rs.open strSQL, Connect, 3, 3
If Not Rs.Eof Then
If DatePart(dd,Now()) = Datepart(dd,Rs("Points_Update")) Then
Response.Write "Du har redan uppdaterat idag"
Else
Response.Write "<a href=update_points.asp>Uppdatera poäng</A>"
End if
Else
Response.Write "du har inga poäng att uppdatera"
End if
%>
</td>
</tr>
</table>
------------------------------------------------------------------------------------

hoppas nån som kan hjälpa mig med detta för det är viktigt

LarsGMedlem sedan dec. 200012 464 inlägg

7 sep. 2002 20:39#2

Byt

If DatePart(dd,Now()) = Datepart(dd,Rs("Points_Update")) Then

mot

if datediff("d",now(),Rs("Points_Update")) = 0 then

RodanMedlem sedan juli 20021 523 inlägg

8 sep. 2002 08:28#3

samma sak... :-( vad kan det va ?? ... det står fortfarande

du har inga poäng att uppdatera

icaaqMedlem sedan okt. 20005 273 inlägg

8 sep. 2002 08:48#4

Testa

[red]
if datediff("d",now(), Cdate(Rs("Points_Update"))) = 0 then
[/red]

RodanMedlem sedan juli 20021 523 inlägg

8 sep. 2002 08:58#5

nope... jag har en till sida...

update_points.asp

----------------------------------------------
<%
Set Conn = Server.CreateObject( "Adodb.Connection" )
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("xxxxxxxxxxxx")&";pwd= xxxxxxxxxx"
Conn.ConnectionString = "Data Source='" & MdbFilePath & "'"
Conn.open

strSQL = "Select * From points Where Points_UsrId = "Session("ID)"
Set Rs = Conn.Execute(strSQL)
If Not Rs.Eof Then
If DatePart(dd,Now()) = Datepart(dd,Rs("Points_Update")) Then
Response.Redirect "sida1.asp"
Else

intTotal = Rs("points_gst")+Rs("points_mail")+Rs("points_login")
strSQL = "Update Points Set points_total = points_total+"&intTotal&" where session("UsrId")"
Set Rs_Update = Conn.Execute(strSQL)

Response.Redirect "Poang.asp"

End If
Else
Response.Write "Din session har avslutats eller så har den aldrig skapats"
End if
%>

------------------------------------------------

Jesper TMedlem sedan nov. 20017 144 inlägg

8 sep. 2002 09:02#6

Detta då:
If Not Rs.Eof Then
If DatePart(dd,Now()) = Datepart(dd,cdate(Rs("Points_Update")))Then
Response.Redirect "sida1.asp"

RodanMedlem sedan juli 20021 523 inlägg

8 sep. 2002 09:08#7

nope..... vad kan det va... kan det kanske va att det inte finns nåt i databsen ?? eller nåt sånt

CatZMedlem sedan jan. 20022 440 inlägg

8 sep. 2002 09:14#8

snälla ni använd

taggarna

@ndersMedlem sedan juni 200032 967 inlägg

8 sep. 2002 09:16#9

Rodan skrev:

nope..... vad kan det va... kan det kanske va att det inte finns nåt i databsen ?? eller nåt sånt

Har du ingenting i databasen finns ju ingenting att uppdatera?