---
title: "uppdatera går inte :-("
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/52535-uppdatera-går-inte"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rodan"
published: "2002-09-07T17:03:45.000Z"
updated: "2002-09-08T09:16:25.000Z"
replies: 8
views: 263
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/52535-uppdatera-går-inte"
---

# uppdatera går inte :-(

## #1 — Rodan, 2002-09-07T17:03Z

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&nbsp; 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&nbsp; 3 status poäng\<br\>
        1 gästbok inlägg 1 status poäng\<br\>
        1 inne &amp; 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 &amp; 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

Permalänk: https://www.webforum.nu/p/52535

## #2 — LarsG, 2002-09-07T20:39Z

Byt 

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

mot 

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

Permalänk: https://www.webforum.nu/p/777722

## #3 — Rodan, 2002-09-08T08:28Z

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

du har inga poäng att uppdatera

Permalänk: https://www.webforum.nu/p/777894

## #4 — icaaq, 2002-09-08T08:48Z

Testa

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

Permalänk: https://www.webforum.nu/p/777906

## #5 — Rodan, 2002-09-08T08:58Z

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
%\>

\------------------------------------------------

Permalänk: https://www.webforum.nu/p/777912

## #6 — Jesper T, 2002-09-08T09:02Z

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

Permalänk: https://www.webforum.nu/p/777917

## #7 — Rodan, 2002-09-08T09:08Z

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

Permalänk: https://www.webforum.nu/p/777923

## #8 — CatZ, 2002-09-08T09:14Z

snälla ni använd 

```
taggarna
```

Permalänk: https://www.webforum.nu/p/777927

## #9 — @nders, 2002-09-08T09:16Z

> **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?

Permalänk: https://www.webforum.nu/p/777929

---

Tråden på webben: https://www.webforum.nu/amne/asp/52535-uppdatera-går-inte