snälla använd [kod] tagg för kod :) och vilken rad kan vi hitta felet?
Frågan#1
Hej på er alla och God fortsättning.
Jag sitter med ett problem som jag av någon anledning inte kan lösa. På https://www.swedishcraft.nu finns de senaste inlagda föremålen till höger på sidan, som ni ser så har jag lagt länken "mer info" för att kunna se bilden och texten til den.
Jag skulle vilja ha bilden klickbar istället, jag får som sagt var inte ihop det och skulle vara tacksam om någon kunde hjälpa mig med det. Såhär ser koden ut:
.......
<% X = 0 %>
<% Set Connect = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("xxxx.mdb")
Connect.Open DSNtemp
Set RecSet = Server.CreateObject("ADODB.Recordset")
%>
<% If Request.QueryString("next") = "" Then
Nasta = 1
If Request.QueryString("sortby") = "" Then
Visa = "SELECT \* FROM arbeten ORDER BY Datum DESC"
ElseIf Request.QueryString("sortby") = "skola" Then
Visa = "SELECT \* FROM arbeten ORDER BY Datum DESC"
End If
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<% Do While X < 6
If RecSet.EOF Then
Exit Do
End If %\>
<tr>
<td class="underlinje" width="65"><font size="1" face="verdana, arial"><%=RecSet("skola")%><%response.write ("<A HREF=dsnslojd.asp?var1=" & RecSet("bljpg") & ">")%><p align="right">mer info</font></td>
<!-- <td><font size="1" face="verdana, arial"><% =RecSet("Arbetsomr") %></font></td> -->
<td class="underlinje" width="100">
<p align="center"><IMG border="1" SRC="fileup/<%response.write(RecSet("Bljpg"))%>" WIDTH=75 alt="Tillverkad av <%response.write RecSet("namn") & " " & "från" & " " & RecSet("skola")%>" </td> </A>
</tr>
<% X = X + 1 %>
<% RecSet.MoveNext %>
<% Loop %>
<% ElseIf Request.QueryString("next") = 0 Then
Nasta = 1
If Request.QueryString("sortby") = "" Then
Visa = "SELECT \* FROM arbeten ORDER BY Datum DESC"
ElseIf Request.QueryString("sortby") = "skola" Then
Visa = "SELECT \* FROM arbeten ORDER BY Datum DESC"
End If
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
Do While X \< 5
If RecSet.EOF Then
Exit Do
End If %\>
<tr>
<td width="65"> </td>
<!-- <td><font size="1" face="verdana, arial"><% =RecSet("Arbetsomr") %></font></td> -->
<td width="100">
</tr>
<% X = X + 1 %>
<% RecSet.MoveNext %>
<% Loop %>
<% ElseIf Request.QueryString("next") > 0 Then
Nasta = Request.QueryString("next")
Nasta = Request.QueryString("next") -- 1
Steg = Request.QueryString("next") * 5
If Request.QueryString("sortby") = "" Then
Visa = "SELECT \* FROM arbeten ORDER BY Datum DESC"
ElseIf Request.QueryString("sortby") = "skola" Then
Visa = "SELECT \* FROM arbeten ORDER BY Datum DESC"
End If
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
RecSet.Move Steg
Do While X < 5
If RecSet.EOF Then
Exit Do
End If %\>
<tr>
<td width="65"><font size="1" face="verdana, arial"><% =RecSet("Datum") %><% =RecSet("Arbetsomr") %><% =RecSet("Alster") %><% =RecSet("Klass") %></font></td>
<!-- <td><font size="1" face="verdana, arial"><% =RecSet("Arbetsomr") %></font></td> -->
<td width="100"> <%response.write ("<A HREF=dsnslojd.asp?var1=" & RecSet("bljpg") & "> ")%> </A>
</td>
</tr>
<% X = X + 1 %>
<% RecSet.MoveNext %>
<% Loop %>
<% End If %>
......
Mvh
Peter :birp
