kommentarer..

8 svar · 249 visningar · startad av Trac3r 29 maj 2003

Trac3rMedlem sedan maj 200335 inlägg

Frågan29 maj 2003 23:22#1

Hej .. jag håller på med ett kommentar system te min hemsida.
Vet att det antagligen är jäkla massa fel i denna koden.. men någon som kan berätta vad man ska skriva ?? =)

kod:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\inetpub\wwwroot\nintendostaden\db\kommentarer.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM kommentar Where artikelID=" & Request.Querystring("ID")
RecSet.Open Addera, Connect, 3, 3
%>
<% DO until RecSet.EOF %>
<table width="428" border="1" cellspacing="0" cellpadding="0" height="54" bordercolor="#000000" bgcolor="#FFFFFF">
<tr>
<td height="47" colspan="2"><font size="1" face="Arial Unicode MS">
<%=RecSet("kommentar")%> </font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td width="201"><font size="1" face="Arial Unicode MS"><%=RecSet("namn")%></font></td>
<td width="221"> <%=RecSet("datum")%></td>
</tr>
</table>
<br>
<% RecSet.Movenext
Loop
RecSet.Close
Connect.Close
Recset=("nothing")
Connect=("nothing")
%>

Trac3rMedlem sedan maj 200335 inlägg

29 maj 2003 23:24#2

@ndersMedlem sedan juni 200032 969 inlägg

30 maj 2003 06:03#3

Vad är det som inte funkar då?

Det enda som mina just nu ganska trötta ögon ser är de två sista kodraderna som borde se ut så här:

Set Recset= nothing 
Set Connect=nothing

mvh

aspMedlem sedan aug. 2002733 inlägg

30 maj 2003 07:31#4

Sedan har du två onördiga ASP-taggar:

RecSet.Open Addera, Connect, 3, 3 
[red]%> 
<% [/red]DO until RecSet.EOF %>

Ta bort de tvp

Trac3rMedlem sedan maj 200335 inlägg

30 maj 2003 09:14#5

Va ska jag skriva istället för dem då??

colioneMedlem sedan juni 20014 421 inlägg

30 maj 2003 09:23#6

Ta bara bort dem..de är onödiga

Trac3rMedlem sedan maj 200335 inlägg

30 maj 2003 09:23#7

Får felet:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.
/nintendostaden/visa.asp, line 129

Tror felet kan bero på denna:
Addera = "SELECT * FROM kommentar Where artikelID=" & Request.Querystring("ID")

@ndersMedlem sedan juni 200032 969 inlägg

30 maj 2003 09:26#8

Är artikelid av typen text? i så fall ska det vara apostrofer runt värdet. Om artikelid är ett tal så bör det även vara ett tal i tabellen.

Addera = "SELECT * FROM kommentar Where artikelID='" & Request.Querystring("ID") & "'"

Trac3rMedlem sedan maj 200335 inlägg

30 maj 2003 09:46#9

yay.. det fungerar nu =)