Anzeige: Goneo - Du machst das Web!
Anzeige: united-domains - Die ganze Welt der Domains
Einfache & schnelle Domain-Registrierung zu fairen Preisen ohne Einrichtungsgebühren. Mehr als 250 Domain-Endungen aus einer Hand inklusive E-Mail- & Web-Weiterleitung. Einzigartiges Domain-Portfolio zur bequemen & sicheren Verwaltung Ihrer Domain-Namen.
Jetzt Domain-Check bei united-domains!
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
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
Wie 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...
