mackanzMedlem sedan sep. 2003443 inläggHej!
Jag loopar ut lite företagsnamn i en lista. Hur skriver jag om det skall vara länkat till företagets hemsida.
I databsen har jag en tabell som heter sponsorer och i den sedan fält som heter sponsornamn och sponsorlank.
Tack på förhand.
OBS! JAG HAR UTELÄMNAT DATABASKOPPLINGEN EFTERSOM DET ÄR OINTRESSANT.
Ni kan kolla resultatet på http://www.ifkolme.org klicka på sponsorer i menyn.
sqlCount = "SELECT COUNT(*) FROM sponsorer"
rsRecSet.Open sqlCount, cnConn, 0, 1
rsRecSet.Close
%>
<table width="90%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td colspan="6"><div id="caption">Sponsorer</div></td>
</tr>
<tr>
<td colspan="3">Här finner du listan på våra sponsorer säsongen 2004
<tr>
<%
sql = "SELECT * FROM sponsorer order by sponsornamn asc"
rsRecSet.Open sql, cnConn, 0, 1
Do until rsRecSet.EOF
Response.Write(strRow & "<td>" & rsRecSet ("sponsornamn") & "</td>" & vbCrLf)
nummer = nummer + 1
If nummer Mod 3 = 0 Then
strRow = "</tr>" & vbCrLf & "<tr>" & vbCrLf
Else
strRow = ""
End If
rsRecSet.MoveNext
Loop
rsRecSet.Close
%>
</tr>
</table>
PDahlenMedlem sedan apr. 2004778 inläggEeh, HTML?
Response.Write(strRow & "<td><a href=""http://" & rsRecSet("sponsorlank") & """ target="_new">" & rsRecSet ("sponsornamn") & "</a></td>" & vbCrLf)
mackanzMedlem sedan sep. 2003443 inlägg Nej detta funkade inte.....
/Markus
J.N.Medlem sedan apr. 20031 660 inläggHEJ!
Råd:
När man inte vet hur man ska få till en kod i vb, gör den i html först, sedan översätter man den till vb.
Alltså:
Eftersom det du vill göra blir detta:
<td><a href="http://www.ifkolme.org">IF Kolme</a></td>
blir din länk denna:
Response.Write(strRow & "<td><a href=""" & rsRecSet ("sponsorlank") & """>" & rsRecSet ("sponsornamn") & "</a></td>"&vbCrLf)
Tack för att du tog bort db-kopplingen, du hade gärna fått rensat bort alla onödiga radbrytningar också!
PDahlenMedlem sedan apr. 2004778 inlägg Vad är det som inte funkar?
mackanzMedlem sedan sep. 2003443 inlägg När jag skrev in er kod fick jag följande meddelande:
Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/spons/sponsorer.asp, line 112, column 26
Response.Write(strRow & "<td><a href=""" & rsRecSet ("sponsorlank") & """>" & rsRecSet ("sponsornamn") & "</a></td>" & vbCrLf)
-------------------------^
MelittaMedlem sedan sep. 2003448 inläggTesta:
Response.Write strRow & "<td><a href=""" & rsRecSet("sponsorlank") & """>" & rsRecSet("sponsornamn") & "</a></td>" & vbCrLf
PDahlenMedlem sedan apr. 2004778 inlägg Får jag gissa att du kopierade rakt av från forumet?
Du måste antingen klistra in till oformatterad text i typ Anteckningar först eller ändra så att koden ser ut som den gör här i forumet. Det som visas i ditt felmeddelande är inte den kod jag skrev ovan.
mackanzMedlem sedan sep. 2003443 inlägg Jag kör med visual interdev och då klistarade jag in texten/raden rätt av. visual interdev är som notpad, fast mkt mkt mer anancerat.
PDahlenMedlem sedan apr. 2004778 inlägg Jag använder Visual Studio och nej, det är inte som notepad när du klistrar in, det ser du väl själv. Det du har klistrat in, ser det ut som koden som jag skrev ovan?
När du kopierar något i Internet Explorer så tar den med sig formatteringen. När jag skriver HTML kod här så översätts det så att du kan se > och <. När du kopierar så tas det med.
Kolla koden i Interdev och jämför.
