Hej igen :-)
här är den första koden som funkar så som jag vill ha det :-)
<code><%
if objRS("img") = "" or objRS("img") = " " or IsNull(objRS("img")) then %>
<img src="x/nopic.jpg" galleryimg="no">
<% else %>
<img src="file/<%= objRS("img") %>" galleryimg="no">
<% end if %></code>

denna kod är lite rörig men jag vill få in den övre koden in i denna
denna vektor är bilden -> vektor(0,i)
någon som kan reda upp i röran?

<code><% response.write "</td>" & vbCrlf %></code>


/Tommy

Det tackar vi för :-)

Är objRs("img") ett filnamn eller en stream?

Hej Pelle!
det är väl filnamn tror jag, svåra frågot du ställer :-)
men om jag fattar det rätt så är det ett filnamn.
vad menat du med "en stream"?

/Tommy

Eftersom filen nu heter vektor(0,i) så måste du ju byta ut objRS("img") mot detta. Eller för att förenkla det för framtida användningar, skapa en variabel för filnamnet innan och använd denna i kollen.

<code>
<%
dim imgURL = vektor(0,i)

if imgURL = "" or imgURL = " " or IsNull(imgURL) then %>
<img src="x/nopic.jpg" galleryimg="no"></td>
<% else %>
</td>
<% end if %>
</code>

Trodde det skulle funka smärtfritt detta men inte då :-) visar mera av min kod!
på 2:a raden response.write vill jag få in

<code>
<%
dim imgURL = vektor(0,i)

if imgURL = "" or imgURL = " " or IsNull(imgURL)) then %>
<img src="x/nopic.jpg" galleryimg="no"></td>
<% else %>
</td>
<% end if %>
</code>

Vill ha funktionen/koden in på "javascript:displaypic"
jag måste köra med response.write så att den funkar på "javascript:displaypic"
någon som förstår?
<code>
response.write "<TR align=""left"" valign=""middle""> " & vbCrlf
response.write "<td width=""28"" align=""center"" bgcolor="""& color &"""></td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt""> " & vektor(4,i) & " </td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(7,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(8,i) & "" & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(9,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(3,i) & " + " & vektor(14,i) & " VDC" & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(11,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(10,i) & "</td>" & vbCrlf
response.write "</tr>" & vbCrlf
</code>

Varför måste du ha response.write? I sådana här fall blir det oftast så att det försvårar läsbarheten. Så för att se om vi kan förenkla det lite tar vi bort alla response.write. Om du vill kan du ju stoppa tillbaka dem när du ser att det fungerar.

<code>
<%
dim imgURL = vektor(0,i)
%>
<TR align="left" valign="middle">
<td width="28" align="center" bgcolor="<%=color%>">
<% if imgURL = "" or imgURL = " " or IsNull(imgURL)) then %>
<img src="x/nopic.jpg" galleryimg="no">
<% else %>

<% end if %>
</td>
<td colspan="2" bgcolor="<%=color%>" class="normaltxt"> <%=vektor(4,i)%> </td>
<td colspan="2" bgcolor="<%=color%>" class="normaltxt"><%=vektor(7,i)%></td>
<td colspan="2" bgcolor="<%=color%>" class="normaltxt"><%=vektor(8,i)%></td>
<td colspan="2" bgcolor="<%=color%>" class="normaltxt"><%=vektor(9,i)%></td>
<td colspan="2" bgcolor="<%=color%>" class="normaltxt"><%=vektor(3,i)%> + <%=vektor(14,i)%> VDC</td>
<td colspan="2" bgcolor="<%=color%>" class="normaltxt"><%=vektor(11,i)%></td>
<td colspan="2" bgcolor="<%=color%>" class="normaltxt"><%=vektor(10,i)%></td>
</tr>
</code>

här är mer kod :-) jag får ett fel att
slut på programsats mellan = & vektor(0,i)

<%
dim imgURL = vektor(0,i)
%>
tack för att du hjälper mig! skickar med all kod så du ser bättre.
blir det rörigt?


<code>
<%@ Language=VBScript %>

<%
Dim DBName, objConn, objRS, strSQL
Dim icount
Dim SQL, Conn, RS, noFindings, vektor, lastRecord, pageSize, intPage, intShow, intRow, i

noFindings = "False"

'Antal poster per sida
pageSize = 20

'Sidan som ska visas
intShow = request.querystring("show")

'Om ingen sida är vald visas den första sidan
if Len(intShow) = 0 then
intShow = 0
end if

IF Status = Open Then
Status = 1
ElseIf Status = Closed Then
Status = 2
End IF

icount = 0
DBName = server.mappath("DB/orders.mdb")

Sort = Request.Querystring( "SORT" )
Status = Request.Querystring( "STATUS" )
Search = Request.Querystring( "SEARCH" )


Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DBQ=" & DBName & ";Driver={Microsoft Access Driver (*.mdb)};"
objConn.Open

Set objRS = Server.CreateObject("ADODB.Recordset")
IF Len(Sort) = "" Then
strSQL = "SELECT img,OrderID,ODWxHmm2,Size,Model,Resolution,Brightness,Interface,info FROM TFT ORDER BY Model asc"
Else
Select Case Sort
Case 1
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Digits DESC, Digits2 DESC"
Case 2
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Digits asc, Digits2 asc"
Case 3
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY x1 DESC"
Case 4
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY x1 asc"
Case 5
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Duty DESC"
Case 6
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Duty asc"
Case 9
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Model DESC"
Case 0
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Model asc"
Case 10
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY ODWxHmm2 DESC, ODWxHmm DESC, ODWxHmm3 DESC"
Case 11
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY ODWxHmm2 asc, ODWxHmm asc, ODWxHmm3 asc"
Case 20
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Interface DESC"
Case 21
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Interface asc"
Case 22
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Other DESC"
Case 23
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Other asc"
Case 24
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Backlight DESC"
Case 25
strSQL = "SELECT img,OrderID,ODWxHmm2,Digits,Model,ODWxHmm,VAWxHmm2,VAWxHmm,Duty,Connectionmethod,Other,Interface,Backlight,ODWxHmm3,Digits2 FROM TFT ORDER BY Backlight asc"
Case else ' I fall att inte IF satsen skulle fungera.
strSQL = "SELECT * FROM TFT ORDER BY Model asc"
End Select

Set objRS= objConn.execute(strSQL)
End IF


'Kollar om databasen är tom
'11 Interface
'0 img,
'1 OrderID,
'2 ODWxHmm2,
'3 Digits,
'4 Model,
'5 ODWxHmm,
'6 VAWxHmm2,
'7 VAWxHmm,
'8 Duty,
'9 Connectionmethod,
'10 Other

' Numret på posterna i vektorn.
'vektor(0,i) =img
'vektor(1,i) =OrderID
'vektor(2,i) =ODWxHmm2
'vektor(3,i) =Size
'vektor(4,i) =Model
'vektor(5,i) =Resolution
'vektor(6,i) =Brightness,
'vektor(7,i) = Interface
'vektor(8,i) = Interface
'vektor(9,i) = Other
'vektor(10,i) = ODWxHmm2
if not objRS.BOF and not objRS.EOF then
vektor = objRS.GetRows()
lastRecord = UBound(vektor,2) 'Sista posten i vektorn
else
noFindings = "True"
end if

Set objRS = Nothing
objConn.Close
Set objConn = Nothing
' Slöade till här, egentligen skulle detta också skrivits ut med Repsonse.write
%>
<html>
<head>
<title>Order Report</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="css/admin.css" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!-- Begin
function displaypic(img){
foto1= new Image();
foto1.src=(img);
Controlla(img);
}
function Controlla(img){
if((foto1.width!=0)&&(foto1.height!=0)){
viewFoto(img);
}
else{
funzione="Controlla('"+img+"')";
intervallo=setTimeout(funzione,20);
}
}
function viewFoto(img){
largh=foto1.width+20;
altez=foto1.height+20;
stringa="width="+largh+",height="+altez;
finestra=window.open(img,"",stringa);
}


function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<script language="JavaScript" type="text/javascript">
<!--
function popup(target)
{
window.open(target,"popup","scrollbars=1,resizable=0,width=800,height=600");
}
//-->
</script>
</head>

<body bgcolor="#ecece4" text="#000000" leftmargin="0" topmargin="0">
<br>
<%
'Om databasen inte är tom visas resultatet
if not noFindings then
' skriv ut tabellen med rubriker och kolumner
Response.Write "<td align=""center"" valign=""top""> <table width=""950"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""ram""> "& vbCrlf
Response.Write "<tr align=""left"" valign=""middle"" bgcolor=""#333333"" class=""normaltxt""> "& vbCrlf
Response.Write "<td width=""45"" height=""20"" align=""center""><font color=""#FFFFFF"">Image</font></td>"& vbCrlf
Response.Write "<td width=""49"" height=""20""><font color=""#FFFFFF"">&nbsp;Model </font></td> "& vbCrlf
Response.Write "<td width=""88"" height=""20""><font color=""#FFFFFF""></font></td> "& vbCrlf
Response.Write "<td width=""72"" height=""20""><font color=""#FFFFFF"">Type</font></td> "& vbCrlf
Response.Write "<td width=""64"" height=""20""> <font color=""#FFFFFF""></font></td> "& vbCrlf
Response.Write "<td width=""32"" height=""20""><font color=""#FFFFFF"">Applicable mechanism</font></td> "& vbCrlf
Response.Write "<td width=""32"" height=""20""> <font color=""#FFFFFF""></font></td> "& vbCrlf
Response.Write "<td width=""109"" height=""20""><font color=""#FFFFFF"">CPU</font></font></td> "& vbCrlf
Response.Write "<td width=""31"" height=""20""> <font color=""#FFFFFF""></font></td> "& vbCrlf
Response.Write "<td width=""40"" height=""20""><font color=""#FFFFFF"">VCC</font></td> "& vbCrlf
Response.Write "<td width=""30"" height=""20""> <font color=""#FFFFFF""></font></td> "& vbCrlf
Response.Write "<td width=""37"" height=""20""><font color=""#FFFFFF"">Input controller method</font></td> "& vbCrlf
Response.Write "<td width=""30"" height=""20""> <font color=""#FFFFFF""></font></td> "& vbCrlf
Response.Write "<td width=""40"" height=""20""><font color=""#FFFFFF"">Other</font></td> "& vbCrlf
Response.Write "<td width=""38"" height=""20""> <font color=""#FFFFFF""></font></td> "& vbCrlf
Response.Write " </tr> "& vbCrlf

'Räknar ut hur många sidor det blir Connection method
intPage = lastRecord\pageSize
if lastRecord < ((intShow*pageSize)+(pageSize-1)) then
for i = intShow*pageSize to lastRecord
if (intRow Mod 2) then
color = "#ecece4"
else
color = "#fdfdfc"
end if
response.write "<TR align=""left"" valign=""middle""> " & vbCrlf
response.write "<td width=""28"" align=""center"" bgcolor="""& color &"""></td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt""> " & vektor(4,i) & " </td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(7,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(8,i) & "" & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(9,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(3,i) & " + " & vektor(14,i) & " VDC" & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(11,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(10,i) & "</td>" & vbCrlf
response.write "</tr>" & vbCrlf
intRow = intRow + 1
next
else
for i = intShow*pageSize to ((intShow*pageSize)+(pageSize-1))
if (intRow Mod 2) then
color = "#ecece4"
else
color = "#fdfdfc"
end if
response.write "<TR align=""left"" valign=""middle""> " & vbCrlf
response.write "<td width=""28"" align=""center"" bgcolor="""& color &"""></td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt""> " & vektor(4,i) & " </td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(7,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(8,i) & "" & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(9,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(3,i) & " + " & vektor(14,i) & " VDC" & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(11,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(10,i) & "</td>" & vbCrlf

response.write "</tr>" & vbCrlf
intRow = intRow + 1
next
end if
response.write "</table>" & vbCrlf
'Om det är fler poster än det antal poster per sida man valt
response.write "<table width=""100%"" table border=""0"" align=""center"">" & vbCrlf
if lastRecord > (pageSize-1) then
response.write " <tr><td align=""center""><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Page:</font> "
for i = 0 to intPage
if (i*pageSize) = (intShow*pageSize) then
response.write "<span class=""123""><b>" & i+1 & "</font></b> "
else'default.asp?sort=" & SORT & "&show="

response.write "" & i+1 & " "
end if
next
response.write " </td></tr>" & vbCrlf
end if
response.write "</table>" & vbCrlf
end if
%>
</body>
</html>

</code>

Det där ser väldigt rörigt ut.
Det bästa vore om du skippade alla response.write och använder inline-kod som jag visade i min kodsnutt ovan. Det är mycket enklare att läsa och tabba in koden.

Sen ser jag inte min "nya" kod nånstans. Är det där någon gammal kod du har innan du lagt in själva if-satsen?

jaså det menar du :-)
detta funkar ju bra ju! vet du jag har typ 18 liknande sidor som funkar bra och jag har ingen lust att göra om alla, hoppades på att det bara skulle vara lätt detta, men inte då :-)
det funkar bra med sortering osv. så därför vill jag ha det så som jag har det, har du inget lättare alternativ :-)

/Tommy

Största problemet är egentligen att jag inte hittar dim imgURL = vektor(0,i) nånstans.
Men jag kom på en annan sak.
Istället för att skriva så sätt

dim imgURL högst upp med de andra dimmade variablerna.
Sen skriver du
imgURL = vektor(0,i)

istället.

jag är inte så bra på detta, och det är väldigt rörig kod vet jag, om du kan skriva
in det som du säger så blir jag glad, har du lust att göra jobbet? :-)
fattar ju inget, får köpa mig en ny bok om detta tror jag :-(

Det enda du behöver göra är att placera nedanstående IF sats på den rad där kollen skall göras.

<code>
dim imgURL = vektor(0,i)
if imgURL = "" or imgURL = " " or IsNull(imgURL) then
response.write "<td width=""28"" align=""center"" bgcolor="""& color <img src=""x/nopic.jpg"" width=""16"" height=""16"" hspace=""5"" border=""0""></td>" & vbCrlf
else
response.write "<td width=""28"" align=""center"" bgcolor="""& color &"""></td>" & vbCrlf
end if
</code>

Nu får jag ett fel :-(

Kompileringsfel i Microsoft VBScript fel '800a0401'

Slut på programsats förväntas.

default.asp, rad 204

dim imgURL = vektor(0,i)
--------------^

jag har testar att skriva med " & vektor(0,i) & " men jag tår samma fel

<code>
dim imgURL = vektor(0,i)
</code>

<code>
dim imgURL = " & vektor(0,i) & "
</code>




nu så ser tabellen ut så här

<code>response.write "<TR align=""left"" valign=""middle""> " & vbCrlf
dim imgURL = vektor(0,i)
if imgURL = "" or imgURL = " " or IsNull(imgURL)) then
response.write "<td width=""28"" align=""center"" bgcolor="""& color &""" class=""normaltxt""><img src=""x/nopic.jpg"" width=""16"" height=""16"" hspace=""5"" border=""0""></td>" & vbCrlf
else
response.write "<td width=""28"" align=""center"" bgcolor="""& color &"""></td>" & vbCrlf
end if
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt""> " & vektor(4,i) & " </td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(7,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(8,i) & "" & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(9,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">" & vektor(3,i) & " + " & vektor(14,i) & " VDC" & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(11,i) & "</td>" & vbCrlf
response.write "<td colspan=""2"" bgcolor="""& color &""" class=""normaltxt"">"& vektor(10,i) & "</td>" & vbCrlf
response.write "</tr>" & vbCrlf</code>


/Tommy

Jag som missade vad jag själv skrev tidigare.

Sätt

Dim imgURL högst upp på sidan där du dimmar alla andra variabler och sen kör du
<code>
imgURL = vektor(0,i)
if imgURL = "" or imgURL = " " or IsNull(imgURL) then
response.write "<td width=""28"" align=""center"" bgcolor="""& color <img src=""x/nopic.jpg"" width=""16"" height=""16"" hspace=""5"" border=""0""></td>" & vbCrlf
else
response.write "<td width=""28"" align=""center"" bgcolor="""& color &"""></td>" & vbCrlf
end if
</code>

Om du fortfarande får ett sånt fel så är risken att vektor är tom.

Själv använder jag mig bara av :

<%
Dim strImage
strImage = objRS("img")

If IsEmpty(strImage) Or strImage = "" Then
strImage = "nopic.gif"
Else
strImage = strImage
End If

Response.Write("<img src=""Pics/" & strImage & """>")

Jo, fast i det här fallet skulle det tydligen med javascriptlänkar om bilden finns så det räcker inte.

Ajdå.. missade det :-S

YES!!!!!!
nu funkar det!!
1000 TACK!!!!!


/Tommy