Just nu i M3-nätverket
Jump to content

.asp och MySQL


Aknot

Recommended Posts

Hej igen alla!

 

Försöker hämta data från två tabeller ur en MySQL Win32 server (IIS) baserat på filmid och användarnamn. Funktionen skall visa användarnas fem senaste inskrivna filmrecensioner. SQLsatsen verkar fungera som den skall (Inga felmeddelanden) men jag lyckas inte presentera informationen (filmtitlarna) på sidan. Vet inte vad jag gör för fel. Alla förslag är välkommna =) Stort tack på förhand. //Pelle

 

<%

Set Rs = Server.Createobject("ADODB.Recordset")

Conn = "DSN=mydb"

sql = "SELECT movies.title, reviews.id, reviews.date, reviews.movieid FROM reviews, movies WHERE reviews.movieid = movies.id AND reviews.username = '"&strUsername&"' LIMIT 5"

 

Rs.Open sql, Conn

Color = "#FFFFFF"

DO WHILE NOT Rs.EOF

strID = Rs("id") '// ID FRÅN TBL REVIEWS

strDate = Rs("date") '// DATUM FRÅN TBL REVIEWS

strTitle = Rs("title") '// FILMTITEL FRÅN TBL MOVIES

 

IF Color = "#FFFFFF" THEN

Color = "#ECEFF2"

ELSE

Color = "#FFFFFF"

END IF

%>

<tr>

<td bgcolor="<%=Color%>"><font size="1"><%=strDate%><a href="/rewiew/show.asp?review_id=<%=strID%>"><%=strTitle%></a></font><br>

</td>

<%

Rs.Movenext

Loop

Rs.Close

Set Rs = Nothing

%>

 

Link to comment
Share on other sites

Hej!

 

Om du inte får något felmeddelande bör du nog kontrollera vad "strUsername" variabeln har för värde. Antagligen har den inget värde.

 

I övrigt ser koden helt ok ut för mina morgontrötta ögon.

 

/foo

 

Link to comment
Share on other sites

Tjenixen igen... Funkar inte, detta är felmeddelabdet jag får:

 

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

 

/users/profile.asp, line 550

 

Kommenterar jag ut raderna...

'strID = Rs("id") '// ID FRÅN TBL REVIEWS

'strDate = Rs("date") '// DATUM FRÅN TBL REVIEWS

'strTitle = Rs("title") '// FILMTITEL FRÅN TBL MOVIES

 

...så funkar det nästan, inga felmeddelanden, men tyvärr så syns juh inget =(

 

 

Någon idé?

 

[inlägget ändrat 2003-03-24 09:57:31 av /home/aknot2002]

[inlägget ändrat 2003-03-24 10:05:17 av /home/aknot2002]

Link to comment
Share on other sites

På raden finns:

strDate = Rs("date") '// DATUM FRÅN TBL REVIEWS

 

Den stämmer, tro mig, kan det behöves ändras ordning i SQL satsen tro?

 

[inlägget ändrat 2003-03-24 10:08:35 av /home/aknot2002]

Link to comment
Share on other sites

Hej!

 

tja din sql sats ser helt korrekt ut. Om du kommenterar ut rad 550, fungerar koden då?

 

Om den gör det, pröva att byta ut raden:

strDate = Rs("date")

till

strDate = Rs(2)

istället.

 

Om det fungerar då, kan du lägga in den här koden (direkt efter raden: Rs.Open sql, Conn) för att kontrollera namnen på fälten du får tillbaka:

 

dim oField

for each oField in rs.fields

response.write "|" & oField.name

next

response.end

 

/foo

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...