---
title: "Hur fixar jag detta?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/150861-hur-fixar-jag-detta"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ivar"
published: "2006-09-03T14:05:31.000Z"
updated: "2006-09-04T06:45:05.000Z"
replies: 1
views: 321
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/150861-hur-fixar-jag-detta"
---

# Hur fixar jag detta?

## #1 — Ivar, 2006-09-03T14:05Z

Hej,
Jag har denna kod som funkar bra, men jag vill att bilderna och texten vissas horisontellt, men hur?

```
<%
' ### arraydim 3 st
arrValda = Array(0,0,0,0) 

' ### koppling
Set objCon = Server.CreateObject("ADODB.Connection") 
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/annonser.mdb") & ";"
Set objRs = Server.CreateObject("ADODB.Recordset") 

	' ### tabellinfo samt villkor
	strSQL = "SELECT * FROM mak" 
	objRs.Open strSQL, objCon, 3, 3 
	
	intPoster = objRs.RecordCount 
	
	' Start 2-0 = 3 poster
	For x = 0 To 2

				Do 
				strOk = true 
				Randomize 
				intSlump = int(rnd()*intPoster) 
				For Each value In arrValda 
				
				If value = intSlump Then strOk = false 
				
				Next 

	If strOk Then arrValda(x) = intSlump 
	Loop Until cBool(strOk) 

				objRs.Move intSlump 
	
				If Not objRs.EOF Then 
				Response.Write "<table width='100%' bordercolor='#99FF66' align='center' cellpadding='0' cellspacing='1' border='1'> "
							Response.Write "<tr>"
							if "" & objRs("fileName") = "" Then  
Response.Write "<td><center>" &objRs("item")&"" 
else 
				%>
				<td><center><img src="bilder/<%=objRs("filename")%>"  height="80" border="0">
				<%end if%>

				
				<%
				Response.Write "</tr></td></table></center>"
				End if 
				objRs.MoveFirst 
				Next 

objRs.Close 
Set objRs = Nothing 
objCon.Close 
Set objCon = Nothing 
%>
```

Permalänk: https://www.webforum.nu/p/150861

## #2 — Ivar, 2006-09-04T06:45Z

Fixat,

```
<%
' ### arraydim 3 st
arrValda = Array(0,0,0,0) 

' ### koppling
Set objCon = Server.CreateObject("ADODB.Connection") 
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/annonser.mdb") & ";"
Set objRs = Server.CreateObject("ADODB.Recordset") 

	' ### tabellinfo samt villkor
	strSQL = "SELECT * FROM mak" 
	objRs.Open strSQL, objCon, 3, 3 
	
	intPoster = objRs.RecordCount 
					Response.Write "<table width='100%' bordercolor='#99FF66' align='center' cellpadding='0' cellspacing='1' border='1'> "
	' Start 2-0 = 3 poster
	For x = 0 To 2

				Do 
				strOk = true 
				Randomize 
				intSlump = int(rnd()*intPoster) 
				For Each value In arrValda 
				
				If value = intSlump Then strOk = false 
				
				Next 

	If strOk Then arrValda(x) = intSlump 
	Loop Until cBool(strOk) 

				objRs.Move intSlump 
	
				If Not objRs.EOF Then 

							Response.Write "<tr>"
							if "" & objRs("fileName") = "" Then  
Response.Write "<td><center>" &objRs("item")&"" 
else 
				%>
				<td><center><img src="bilder/<%=objRs("filename")%>"  height="80" border="0">
				<%end if%>

				
				<%
				Response.Write "</tr></td></table></center>"
				End if 
				objRs.MoveFirst 
				Next 

objRs.Close 
Set objRs = Nothing 
objCon.Close 
Set objCon = Nothing 
%>
```

Permalänk: https://www.webforum.nu/p/1861012

---

Tråden på webben: https://www.webforum.nu/amne/asp/150861-hur-fixar-jag-detta