selfhtml.de - Alles für den Webmaster!

 

Empfehlung:

wix.com

Kostenlose Homepage

Besuchen Sie auch:

Jobs:

Wie kann man denhorizontalen Bildumbruch/ Zeilenumbruch beeinflussen ?

Autor: Ekkehart [Beiträge: 15]
Datum: 02.08.2009 21:25:23

Hallo in die Runde,

ich habe eine Anfrage bezüglich einer Änderung meiner Bilddarstellung in einem asp-Skript.In der derzeitigen Ansicht werden immer 2 Bilder nebeneinander erzeugt, dann kommt ein Umruch mit einer horizontalen Linie und die nächsten Bilder werden angezeigt.
Wie ist es möglich zb. 4 Bilder in einer Reihe zu erstellen bevor der Zeilenumbruch erzeugt wird? ...ich kriegs leider nicht hin...

Hier Code-Schnitzel:
<%
On Error Resume Next

agruppe = request("agr")
Set DataConn = Server.CreateObject("ADODB.Connection")
'DataConn.Open Application("db_name")
DBPath = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./Ordner/Datei.mdb")
DataConn.Open DBPath


Set rsgruppe = DataConn.Execute("select Bezeichnung from Artikelgruppen where Artikelgruppe='" & agruppe & "'")
grbezeichnung = rsgruppe(0)
rsgruppe.close()
sqlCommand = "select * from artikel where Artikelgruppe='" & agruppe & "' order by Artikelnummer"
set rs = DataConn.Execute(sqlCommand)



%>

<form name="itemsform">
  <div align="center">
    <center>
  <table border="0" width="500">
    <tr>
<%
ProductNumber = 1
Do While Not rs.EOF
artikel = rs("artikelnummer")
stichwort = rs("stichwort")
stichwort = stichwort & ""
if stichwort = "" then
stichwort = " "
end if
bezeichnung = rs("bezeichnung")

bez2 = stichwort
pos = InStr(bez2, chr(34))
while pos > 0
bez2 = mid(bez2, 1, pos - 1) & mid(bez2, pos + 1, len(bez2))
pos = InStr(bez2, chr(34))
wend
pos = InStr(bez2, "'")
while pos > 0
bez2 = mid(bez2, 1, pos - 1) & mid(bez2, pos + 1, len(bez2))
pos = InStr(bez2, "'")
wend
preis = rs("Preis")
pos = InStr(preis, ",")
if pos = 0 then
preis = preis & ",00"
else
if (len(preis) - pos) = 1 then
preis = preis & "0"
end if
end if
pos = InStr(preis, ",")
if pos > 0 then
p2 = Mid(preis, 1, pos - 1) & "." & Mid(preis, pos + 1)
else
p2 = preis
end if
if InStr(p2, ".") = 0 then
p2 = p2 & ".00"
end if

ProductNumber = ProductNumber + 1
%>
  <td width="50%" height="180">
    
    <% If len(rs("picture")) > 0 then %>
    <a href="detail.asp?art=<%=artikel%>&pic=<%=rs("picture")%>" target="Oben"><img src="artimages/<%=rs("picture")%>t.jpg" alt="vergrößern" border="0"><img src="artimages/fuell.gif" width="1" height="50" border="0"><span class="es">Details</span></a>
    <% else %>
<img src="artimages/fuell.gif" width="1" height="50" border="0">
    <% End If%>
<br>
  
  
  
<% If (ProductNumber MOD 2) then %>
<tr><td colspan="2"><hr></td></tr>
    <tr>
<% End If %>

<%
rs.movenext
loop
%>
<% if (rs.EOF and (ProductNumber MOD 2)) then%>
      <td width="50%"></td>
      <td width="50%"></td>
    </tr>
<%else%>
    <tr>
      <td width="50%"></td>
    </tr>
<% End If%>


ich hoffe mir kann jemand weiterhelfen ...

Danke im Voraus

Ekkehart


Beiträge

Antwort schreiben

Username: Usernamen registrieren
Passwort: Passwort vergessen?
Thema:
  Bitte benutze für deinen Beitrag die Groß-/Kleinschreibung!
Beitrag:
Link (URL):
Titel für Link:
Grafik (URL):
  Die Breite der Grafik darf 468 Pixel nicht überschreiten.
 
E-Mail-Benachrichtigung:



Zum Abschicken deines Beitrags bitte die Schaltfläche "Abschicken" nur einmal anklicken und warten. Der Server braucht manchmal einige Zeit, bis er den Beitrag in die Datenbank übernommen hat. Wenn du die Schaltfläche mehrmals drückst, erscheint dein Beitrag auch mehrmals im Forum.

Bewerten Sie Ihren Webhosting-Provider

Webhosting Provider bewerten und Apple iPad gewinnenWie zufrieden sind Sie mit Ihrem Webhosting-Provider? Gibt es Probleme beim Service, mit der Performance oder der Abrechnung?

Teilen Sie jetzt Ihre Erfahrungen mit anderen Webmastern und schreiben Sie eine Provider-Bewertung. Mit etwas Glück können Sie ein Apple iPad gewinnen!

Weitere Informationen und Teilnahme...