Har ett program som lagrar sökvägen till olika bilder i en Access databas. Tänkte nu höra om det är någon som har någon bra lösning på hur man skulle kunna skriva ut ett felmeddelande om sökvägen är felaktig eller om bilden har blivit flyttad. Annars visas ju bara en ruta med en röd prick i. Hoppas någon har en bra lösning..... Använd följande kod. Hmm..ja det verkar kunna funka, men jag får inte riktigt det att stämma. Jag bifogar koden som jag tänkt att lägga det i... Detta kanske är till nån hjälp. Har ingte koden för att öppna databasen. Så skapade en funktion som retunerade ett test recordset: Hej! Tack för hjälpen, men jag får inte riktigt till det med min kod som öppnar databasen. Bifogar den nedan...Felmeddelande...
Mvh: FreddeSv: Felmeddelande...
varImagesPath = "c:\inetpub\wwwroot\images\test.gif"
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.fileExists(varImagesPath) Then
'Kod om bilden finns
Else
'Kod om bilden inte finns
End If
Koden skriven på frihand ursäkta eventuell felstavning.
/JanneSv: Felmeddelande...
<html>
<head>
<title>Vasaloppet 2000!</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<b>Vasaloppet 2000!</b>
<hr noshade size="1">
<%
varImagesPath = "c:\inetpub\wwwroot\Bilder\Girls.jpg"
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.fileExists(varImagesPath) Then
'Kod om bilden finns
Else
<b>Bilden finns ej tillgänglig!</b>'Kod om bilden inte finns
End If
%>
<%
iMaxPerPage = 5
iSkip = Request("skip")
If iSkip = "" Or IsNumeric(iSkip) = False Then iSkip = 0
' Loopa förbi dom poster som inte används
For i = 0 To iSkip
RecSet.MoveNext
Next
cTotCounter = iSkip
cThisLoop = 0
Do Until RecSet.EOF Or cThisLoop = iMaxPerPage
cThisLoop = cThisLoop + 1
cTotCounter = cTotCounter + 1
%>
<table width="25%" border="0">
<tr>
<td><b>Motiv:</b> <%=RecSet("Motiv")%></td>
<td rowspan="3">
">">
Namn: <%=RecSet("Namn")%> Årtal: <%=RecSet("Artal")%>
<%
RecSet.MoveNext
Loop
RecSet.Close
%>
Nästa sida
</td>
</tr>
</table>
</div>
</body>
</html>
Hoppas på svar!Sv: Felmeddelande...
<%@ Language=VBScript %>
<%Option Explicit
Function GetTestRecordset
Dim Fields
Dim Index
Set GetTestRecordset = Server.CreateObject("ADODB.Recordset")
GetTestRecordset.Fields.Append "Motiv", 202, 255, 32
GetTestRecordset.Fields.Append "Bild", 202, 255, 32
GetTestRecordset.Fields.Append "Namn", 202, 255, 32
GetTestRecordset.Fields.Append "Artal", 3, , 32
GetTestRecordset.Open
Fields = Array("Motiv", "Bild", "Namn", "Artal")
For Index = 1 to 20
GetTestRecordset.AddNew Fields, Array("Test Bild: " & Index, "c:\Bild" & Index & ".jpg", "Namn: " & Index, "1999")
Next
GetTestRecordset.MoveFirst
End Function
%>
<HTML>
<HEAD>
<title>Vasaloppet 2000!</title>
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000">
Vasaloppet 2000!
<hr noshade size="1">
<%
Dim fs
Dim iSkip
Dim cTotCounter
Dim cThisLoop
Dim varImagesPath
Dim RecSet
Dim fldMotiv
Dim fldBild
Dim fldNamn
Dim fldArtal
Const iMaxPerPage = 5
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set RecSet = GetTestRecordset
'Set RecSet = Server.CreateObject("ADODB.Recordset")
'RecSet.Open "", conn
If IsNumeric(Request("skip")) Then
iSkip = CInt(Request("skip"))
RecSet.Move iSkip
Else
iSkip = 0
End if
cTotCounter = iSkip
cThisLoop = 0
Set fldMotiv = RecSet("Motiv")
Set fldBild = RecSet("Bild")
Set fldNamn = RecSet("Namn")
Set fldArtal = RecSet("Artal")
Do Until RecSet.EOF Or cThisLoop => iMaxPerPage
cThisLoop = cThisLoop + 1
cTotCounter = cTotCounter + 1
%>
<table width="25%" border="0">
<tr>
<td>Motiv: <%=fldMotiv%></td>
<td rowspan="3"><%
varImagesPath = fldBild
If fs.fileExists(varImagesPath) Then
%><%
Else
%>Bilden finns ej tillgänglig!<%
End If%>
Namn: <%=fldNamn%>
Årtal: <%=fldArtal%>
<%
RecSet.MoveNext
Loop
If iSkip > 0 Then
Response.Write "Föregående sida"
Else
Response.Write "Föregående sida"
End if
Response.Write " Sida: " & (iSkip\iMaxPerPage) + 1 & " "
If Not RecSet.Eof Then
Response.Write "Nästa sida"
Else
Response.Write "Nästa sida"
End if
RecSet.Close
Set RecSet = Nothing
%>
</BODY>
</HTML>Sv: Felmeddelande...
<% If Request("Motiv")="" And Request("Namn")="" And Request("Artal")="" And Request("Kategori")="" And Request("Bild")="" Then %>
<p align="left"><STRONG><font size="5" face="Monotype Corsiva"
>Lägg till Bilder!</font></STRONG></p>
<hr noshade size="1">
<FORM METHOD="POST" ACTION="add.asp">
<b>Motiv:</b><BR>
<INPUT TYPE="TEXT" SIZE="30" NAME="Motiv"><p>
<b>Namn:</b><BR>
<INPUT TYPE="TEXT" SIZE="30" NAME="Namn"><p>
<b>Årtal:</b><BR>
<INPUT TYPE="DATE/TIME" SIZE="30" NAME="Artal"><p>
<b>Kategori:</b><BR>
<INPUT TYPE="TEXT" SIZE="30" NAME="Kategori"><p>
<b>Sökväg:</b><BR>
<INPUT TYPE="FILE" SIZE="30" NAME="Bild"><p>
<INPUT TYPE="submit" VALUE="Lägg till post">
<INPUT TYPE="reset" VALUE="Rensa">
</FORM>
<%
Else
Const adOpenStatic = 3
Const adLockOptimistic = 3
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Bilddata.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM bilddata"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Motiv") = Request.Form("Motiv")
RecSet("Namn") = Request.Form("Namn")
RecSet("Artal") = Request.Form("Artal")
RecSet("Kategori") = Request.Form("Kategori")
RecSet("Bild") = Request.Form("Bild")
RecSet.Update
RecSet.Close
Connect.Close %>
<b>Följande uppgifter har nu lagts till i biblioteket:<p></b>
<b>Motiv:</b><br><% =Request.Form("Motiv") %><p>
<b>Namn:</b><br><% =Request.Form("Namn") %><p>
<b>Årtal:</b><% =Request.Form("Artal") %><p>
<b>Kategori:</b><% =Request.Form("Kategori") %><p>
<b>Sökväg:</b><% =Request.Form("Bild") %><p>
Visa listan.
<% end if %>
</td>
</tr>
</table>
</div>
</body>
</html>