14 svar · 203 visningar · startad av Sensei
kruxet: jag vill ha en loop som går en gång till höger sedan ner, sedan till höger osv har gjort en liten bild så ni ser =]
http://www.jonne.nu/sensei/stuff/error.jpg
Just nu har jag en enkel loop men om jag lade i 2 tables, som det är upplagt nu så dubbel loopa den, dvs samma länkar på 2 ställen rakt ner.
<%
Do until rs.eof
%>
<a href="<%response.write rs("lnkAdress")%>" target="_new"><%response.write rs("lnkNamn")%></a><br>
<%
rs.movenext
loop
%>
------------------
.:' Jolt ':.
Gör en tabell med två celler i och loopa genom den.
Om du har ett udda antal så blir det "fel" så att säga, alltså en cell blir tom, men det gör inget, så blir det ju i all fall! :-)
------------------
"Never underestimate your opponents." - Name the movie.
2 celler? <td></td><td></td> menar du?
Det har jag försökt men.. jag fattar inte hur det ska gå till
------------------
.:' Jolt ':.
Du kan ju använda dig av en counter som räknar till från 1 till 2 och när det blir 2 så kör du en </tr> och börjar om med <tr> om du förstår.
------------------
Ingenting är omöjligt, bara en utmaning.
Ok, här kommer lite kod då :)
Alternativ 1::
Do Until rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("lnkNamn") & "</td>"
rs.MoveNext
Response.Write "<td>" & rs("lnkNamn") & "</td>"
Response.Write "</tr>"
rs.MoveNext
Loop
Alternativ 2::
nCheck = 1
Do Until rs.EOF
If nCheck = 1 then
Response.Write "<tr>"
Response.Write "<td>" & rs("lnkNamn") & "</td>"
nCheck = 2
ElseIf nCheck = 2 then
Response.Write "<td>" & rs("lnkNamn") & "</td>"
Response.Write "</tr>"
nCheck = 1
End If
rs.MoveNext
Loop
Båda alternativen borde funka som du vill :)
------------------
SPiN, bjorne.w@telia.com
-- Fame is a bitch, man [Brad Pitt - Fight Club] --
Jupp, tackar :), men nu bidde kruxet att få in länken, jag har lärt mig att asp kod i en asp kod aldrig går, ska jag använda några fnuttar lr hur blir det?
Länken som jag använde mig av ser ut så här
<a href="<%'response.write rs("lnkAdress")%>" target="_new"><%'response.write rs("lnkNamn")%></a>
------------------
.:' Jolt ':.
typ sådär, fast ta bort apostrofen du kastat in före response.write i de två asp-blocken.
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>
Det vill sig inte riktigt.. så här har jag gjort nu.
<%
Do Until rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & <a href="response.write rs("lnkAdress")" target="_new">response.write rs("lnkNamn")</a> & "</td>"
rs.MoveNext
Response.Write "<td>" & rs("lnkNamn") & "</td>"
Response.Write "</tr>"rs.MoveNext
Loop
%>
[kod]
och får:
[kod]Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/silver/lankar.asp, line 25, column 24
Response.Write "<td>" & <a href="response.write rs("lnkAdress")" target="_new">response.write rs("lnkNamn")</a> & "</td>"
------------------
.:' Jolt ':.
det där var ju inte direkt vad du skrev ovan, eller hur?
så här kan det se ut:
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
mvh,
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>
[Redigerat av @nders den 08 maj 2001]
Attans, det gjorde det inte :(, hadde man udda länkar så blev det error, finns det nått man kan skriva så det blir en tom ruta om sådant händer?
[Redigerat av Sensei den 08 maj 2001]
Så här ser koden ut:
<html>
<head>
<title>Millergraphics</title>
<style type="text/css">
<!--
a:link { font-family: Arial, Verdana, Helvetica, sans-serif; font-size: 10pt; background-color: #FFFFFF }
a:visited { font-family: Arial, Verdana, Helvetica, sans-serif; font-size: 10pt; background-color: #FFFFFF }
a:active { font-family: Arial, Verdana, Helvetica, sans-serif; font-size: 10pt; background-color: #FFFFFF }
a:hover { font-family: Arial, Verdana, Helvetica, sans-serif; font-size: 10pt; background-color: #FFFFFF}
-->
</style>
</head>
<body bgcolor="#FFFFFF" link="#000000" alink="#000000" vlink="#000000">
<%
Set MyConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
MdbFilePath = Server.MapPath("dbase/miller.mdb")
MyConn.OPEN "driver={Microsoft Access Driver (*.mdb)};;DBQ=" & MdbFilePath & ";"
strSQL = "Select * From tblLinks where lnkCat = 'software'"
RS.Open strSQL,MyConn
%>
<table width="460" border="0" cellspacing="0" cellpadding="0">
<tr><td height="65" colspan="2"></td></tr>
<tr><td height="22" bgcolor="#3C5196" colspan="2"><div align="center"><img src="bilder/nymenu/rubriklank.gif" border="0" alt=""></div></td></tr>
<tr><td HEIGHT="8" bgcolor="#FFFFFF" colspan="2" width="50%" valign="top"></td></tr>
<%
Do Until rs.EOF
Response.Write "<tr>"
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
rs.MoveNext
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
Response.Write "</tr>"
rs.MoveNext
Loop
%>
<tr><td HEIGHT="10" bgcolor="#FFFFFF" colspan="2"></td></tr>
<tr><td bgcolor="#3c5196" colspan="2">
<div align="center"><img src="bilder/nymenu/lankforetag.gif" width="85" height="19"></div></td></tr>
<tr><td HEIGHT="8" bgcolor="#FFFFFF" colspan="2" width="50%" valign="top"></td></tr>
<%
Do Until rs.EOF
Response.Write "<tr>"
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
rs.MoveNext
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
Response.Write "</tr>"
rs.MoveNext
Loop
%>
<tr><td HEIGHT="10" bgcolor="#FFFFFF" colspan="2"></td></tr>
<tr><td bgcolor="#3c5196" colspan="2">
<div align="center"><img src="bilder/nymenu/massorlank.gif" width="210" height="19"></div></td></tr>
<tr><td HEIGHT="8" bgcolor="#FFFFFF" colspan="2" width="50%" valign="top"></td></tr>
<%
Do Until rs.EOF
Response.Write "<tr>"
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
rs.MoveNext
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
Response.Write "</tr>"
rs.MoveNext
Loop
%>
<tr><td HEIGHT="10" bgcolor="#FFFFFF" colspan="2">
</td></tr>
</table>
</body>
</html>
Har ni något föslag på hur jag ska göra får att kunna få udda antal länkar utan att det crashar och hur jag ska kunna få fram olika lnkCat?
De olika lnkCat är: software,FOE,companies. Antar att man får stägna ner rs eller vilken av dem det nu är som ska stängas ner och sedan öpnas igen fast med lnkCat companies, är jag helt ute och cyklar nu?
------------------
.:' Jolt ':.
[Redigerat av Sensei den 08 maj 2001]
Förslag 2 av SPiN fungerade utan crash :], tack spin, super kanon!
Whupp allt e löst, tack för all er hjälp
------------------
.:' Jolt ':.
[Redigerat av Sensei den 08 maj 2001]
under "RS.Open strSQL,MyConn", skriv:
on error resume next
så blir du kvitt alla eventuella felmeddelanden.
------------------
"Never underestimate your opponents." - Name the movie.
Ja, det där var ett användbart tips.
Men om jag nu vill lista upp mina saker i tex nummerordning och vill ha det så att jag "fyller" den första kolumnen för att sen fortsätta i nästa
Hur löser man det då?
------------------
/solbulle