---
title: "affär... med status"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/50043-affär-med-status/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rodan"
published: "2002-08-11T12:32:38.000Z"
updated: "2002-09-01T07:24:59.000Z"
replies: 27
views: 688
page: 2
pages: 2
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/50043-affär-med-status"
---

# affär... med status

_Sida 2 av 2._

## #21 — Rodan, 2002-08-31T11:02Z

det funkar inte... snälla kan nån hjälpa mig.... snälla det är jätte viktigt

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

## #22 — Jymdis, 2002-08-31T15:24Z

skriv ditt problem istället ..

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

## #23 — Rodan, 2002-08-31T15:44Z

listaprodukter
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/SwedenWorld/listaprodukter.asp, line 12, column 17

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

## #24 — Rodan, 2002-08-31T15:46Z

\<%

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 ("xxxxxxxxxxx")&";pwd=xxxxxxxx"
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\>

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

## #25 — Sico, 2002-08-31T15:47Z

R/ too late

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

## #26 — Jymdis, 2002-08-31T17:28Z

```
 strSQL = "Select Points_update From Points,members Where Points_UsrId=" & Session("ID") &""
```

Dubbelfnuttarna som ställer till det?

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

## #27 — Rodan, 2002-08-31T18:53Z

jag märkte att jag skrev fel kod.... här är den rätta

\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("affar.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

set rs = conn.execute("SELECT \* FROM grejerAttKopa ORDER BY pris")

if not rs.eof then

do until rs.eof
   response.write ""Produkt: " & rs("produktnamn") & "\<br\>""
   response.write ""Pris (i status): " & rs("pris") & "\<br\>""
   response.write "\<a href=""kop.asp?id=" & rs("id") & "&pris=" & rs("pris") &""\>Köp denna"
rs.movenext
loop

else
   response.write "Det finns inga produkter att lista just nu."
end if

set rs = nothing
set conn = nothing
%\>

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

## #28 — @nders, 2002-09-01T07:24Z

På vissa ställen har du lite citationstecken för mycket, du har lagt in dubbla där det ska vara enkla.

```
<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("affar.mdb")&";" 

Set RecSet = Server.CreateObject("ADODB.Recordset") 

set rs = conn.execute("SELECT * FROM grejerAttKopa ORDER BY pris") 

if not rs.eof then 

do until rs.eof 
response.write "Produkt: " & rs("produktnamn") & "<br>"
response.write "Pris (i status): " & rs("pris") & "<br>" 
response.write "<a href=""kop.asp?id=" & rs("id") & "&pris=" & rs("pris") &"">Köp denna" 
rs.movenext 
loop 

else 
response.write "Det finns inga produkter att lista just nu." 
end if 

set rs = nothing 
set conn = nothing 
%>
```

Det vore bra om du kunde lägga in kod mellan \[ kod\]-taggar, så blir den betydligt mer lättläst.

Mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/50043-affär-med-status/page2  
Föregående sida: https://www.webforum.nu/amne/asp/50043-affär-med-status.md