Just nu orkar jag inte tänka på hur du ska göra med HTML:en, men så här fixar du i alla fall ASP:n i Do-loopen:
intCount = intCount + 1
If intCount Mod 2 = 0 Then
'Bilden på vänster sida
Else
'Bilden på höger sida
End If
9 svar · 320 visningar · startad av tank82
Hej! :birp
Det är så att jag vill ha med en bild till mina nyheter som ligger på min förstasida, och på första nyheten ska bilden ligga till vänster sida och på andra på höger osv osv.
Bilden kommer att hämtas genom en db (tabell = news, kolumn = bildurl)
Jag vet inte riktigt hur jag ska förklara mitt problem, så jag har bifogat en bild som visar hur jag har tänkt att det ska se ut.
Hoppas det finns någon som kan hjälpa mig med detta.
<% Session.LCID = 1053 %>
<%
strSQL = "SELECT TOP 5 * FROM news ORDER BY datum DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news.mdb")
Set objRS = objCon.Execute(strSQL)
If NOT objRS.EOF Then
Do Until objRS.EOF
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><big><big><font color="#396C8D"><u><%=objRS("rubrik")%></u></font></big></big></td>
</tr>
<tr>
<td valign="top" colspan="2"><font face="Verdana" color="#808080"><%If Len(objRS("nyhet")) > 185 Then%><%=Left(objRS("nyhet"),185)%> ..<%Else%><%=objRS("nyhet")%><%End If%></font> <font face="Verdana"><a href="index.asp?page=news&ID=<%=objRS("ID")%>"onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true"><img src="pil.gif" border="0" alt="<%=FormatDateTime(objRS("datum"),2)%> - <%=objRS("rubrik")%>"></a></font></td>
</tr>
<tr>
<td style="border-bottom: 1px solid #FFFFFF" colspan="2"><hr size="1" color="#000000"></td>
</tr>
</table>
<%
objRS.MoveNext
Loop
End If
Set objRS = Nothing
objCon.Close
Set objCon = Nothing
%>
Just nu orkar jag inte tänka på hur du ska göra med HTML:en, men så här fixar du i alla fall ASP:n i Do-loopen:
intCount = intCount + 1
If intCount Mod 2 = 0 Then
'Bilden på vänster sida
Else
'Bilden på höger sida
End If
ok tack Sebbe, det var ju en bit på vägen iaf, men eftersom jag är en "nybörjare" så behöver jag mer hjälp än så :)
<%
Session.LCID = 1053
strSQL = "SELECT TOP 5 * FROM news ORDER BY datum DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news.mdb")
Set objRS = objCon.Execute(strSQL)
If NOT objRS.EOF Then
Do Until objRS.EOF
intCount = intCount + 1
If intCount Mod 2 = 0 Then
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><big><big><font color="#396C8D"><u><%=objRS("rubrik")%></u></font></big></big></td>
</tr>
<tr>
<td valign="top" colspan="2"><font face="Verdana" color="#808080"><%If Len(objRS("nyhet")) > 185 Then%><%=Left(objRS("nyhet"),185)%> ..<%Else%><%=objRS("nyhet")%><%End If%></font> <font face="Verdana"><a href="index.asp?page=news&ID=<%=objRS("ID")%>"onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true"><img src="pil.gif" border="0" alt="<%=FormatDateTime(objRS("datum"),2)%> - <%=objRS("rubrik")%>"></a></font></td>
</tr>
<tr>
<td style="border-bottom: 1px solid #FFFFFF" colspan="2"><hr size="1" color="#000000"></td>
</tr>
</table>
<% Else %>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><big><big><font color="#396C8D"><u><%=objRS("rubrik")%></u></font></big></big></td>
</tr>
<tr>
<td valign="top" colspan="2"><font face="Verdana"><a href="index.asp?page=news&ID=<%=objRS("ID")%>"onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true"><img src="pil.gif" border="0" alt="<%=FormatDateTime(objRS("datum"),2)%> - <%=objRS("rubrik")%>"></a></font><font face="Verdana" color="#808080"><%If Len(objRS("nyhet")) > 185 Then%><%=Left(objRS("nyhet"),185)%> ..<%Else%><%=objRS("nyhet")%><%End If%></font></td>
</tr>
<tr>
<td style="border-bottom: 1px solid #FFFFFF" colspan="2"><hr size="1" color="#000000"></td>
</tr>
</table>
<%
End If
objRS.MoveNext
Loop
End If
Set objRS = Nothing
objCon.Close
Set objCon = Nothing
%>
Något sånt kanske... (går att förbättra men det är för tidigt på dygnet)
ja det fungerar ju bra voigtann1, men hur ska jag fixa det där med bilden osv.
<img src="<%=objRS("bildurl")%>" width="100" height="100">
Så långt är jag med, men hur ska jag fixa så det blir som jag vill?
Antingen skapar du ett fält som du kallar "BildURL" och när man skriver en nyhet så skriver man in URL'n till bilden som ska visas.
Ditt andra alternativ är att låtar användaren ha möjlighet att ladda upp bilder från ditt admingränssnitt, sedan läser du in bildnamnet och sökvägen och lägger in det i"bildURL" kolumnen.
Hmm varför förklarar du det SteveP? det var väl inte min fråga, :)
det jag behöber hjälp med nu är själva upplägget på sidan (HTML:en)
(kolla bifogad fil för beskrivning)
Jaha, hehe :)
Jag trodde voigtann hade visat dig allt du behövde veta och att du hade problem med att få in bildsökvägen i databasen.
Skapa bara en till TD för den första nyheten och lägg bilden där. I den andra alignar du bilden till "right"
jepp jag fixa det nu.. tack alla!!
Gutt :birp