webForumDet fria alternativet

bild till nyhet!

ASP

9 svar · 320 visningar · startad av tank82

Medlem sedan feb. 2003210 inlägg
Frågan#1

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
%>
nyhet.gif
Medlem sedan jan. 20032 285 inlägg
#2

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
Medlem sedan feb. 2003210 inlägg
#3

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å :)

Medlem sedan juni 20019 519 inlägg
#4
<%
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)

Medlem sedan feb. 2003210 inlägg
#5

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?

Medlem sedan mars 2003772 inlägg
#6

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.

Medlem sedan feb. 2003210 inlägg
#7

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)

Medlem sedan mars 2003772 inlägg
#8

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"

Medlem sedan feb. 2003210 inlägg
#9

jepp jag fixa det nu.. tack alla!!

Medlem sedan mars 2003772 inlägg
#10

Gutt :birp

255 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)