Tenho o código listado abaixo que mostra no site todos os arquivos que possuo em uma determinada pasta para download. No PWS este código funcionava direitinho mas no IIS esta dando erro de ODBC e ADODB.RecordSet. O que pode ser ? alguém pode me ajudar ?
<html>
<%
' Esta Função recebe o nome do arquivo e retorna a imagem
' correspondente ao mesmo baseado em sua extensão.
Function ShowImageForType(strName)
Dim strTemp
strTemp = strName
If strTemp <> "dir" Then
strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))
End If
Select Case strTemp
Case "asp"
strTemp = "asp"
Case "dir"
strTemp = "dir"
Case "htm", "html"
strTemp = "htm"
Case "gif", "jpg"
strTemp = "img"
Case "txt"
strTemp = "txt"
Case Else
strTemp = "misc"
End Select
'strTemp = "<img src=""images/dir_" & strTemp & ".gif"" width=""16"" height=""16"" border=""0"">"
strTemp = "<img src=""Figuras/Pasta_Azul.gif"" width=""16"" height=""16"" border=""0"">"
ShowImageForType = strTemp
End Function
%>
<%
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem
Dim rstFiles
Const adVarChar = 200
Const adInteger = 3
Const adDate = 7
strPath = "../../../Download/Base/CompPend/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
</head>
<body topmargin="0" leftmargin="0" link="#00005A" vlink="#00005A" alink="#00005A" bgcolor="#F0F0F0">
<div align="center">
<center>
<table topmargin="0" leftmargin="0" border="0" bordercolor="#00005A" cellspacing="0" cellpadding="3" width="100%" height="41">
<tr bgcolor="#FFFFFF">
<td align="center" height="11" style="border-right: 2 ridge #D0F500" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"> Nome do Arquivo </font></b></td>
<td align="center" height="11" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"> Data do Arquivo </font></b></td>
<td align="center" height="11" style="border-left: 2 ridge #D0F500" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"> Tamanho do Arquivo ( Mb ) </font></b></td>
</tr>
<%
Set rstFiles = Server.CreateObject("ADODB.Recordset")
rstFiles.Fields.Append "name", adVarChar, 255
rstFiles.Fields.Append "size", adInteger
rstFiles.Fields.Append "date", adDate
rstFiles.Fields.Append "type", adVarChar, 255
rstFiles.Open
For Each objItem In objFolder.Files
rstFiles.AddNew
rstFiles.Fields("name").Value = objItem.Name
rstFiles.Fields("size").Value = objItem.Size
rstFiles.Fields("date").Value = objItem.DateCreated
rstFiles.Fields("type").Value = objItem.Type
Next
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
rstFiles.Sort = "name ASC, date DESC"
rstFiles.MoveFirst
Do While Not rstFiles.EOF
%>
<tr bgcolor="#FFFFFF">
<td align="center" width="40%" height="100%" style="border-right: 2 ridge #D0F500; border-top: 2 ridge #D0F500" valign="top" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"> <%= ShowImageForType(rstFiles.Fields("name").Value) %> <a href="<%= strPath & rstFiles.Fields("name").Value %>" style="text-decoration: none"><%= rstFiles.Fields("name").Value %></a></font></b></td>
<td align="center" width="20%" height="100%" style="border-top: 2 ridge #D0F500" valign="top" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"><%= FormatDateTime(rstFiles.Fields("date").Value,2) %></font></b></td>
<td align="center" width="40%" height="100%" style="border-left: 2 ridge #D0F500; border-top: 2 ridge #D0F500" valign="top" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"><%= FormatNumber(((rstFiles.Fields("size").Value)/1000),0) %><br> <br> <br> <br> </font></b></td>
</tr>
<%
rstFiles.MoveNext
Loop
rstFiles.Close
Set rstFiles = Nothing
%>
</table></center>
</div>
</body>
</html>
Pergunta
AndreFogaca
Tenho o código listado abaixo que mostra no site todos os arquivos que possuo em uma determinada pasta para download. No PWS este código funcionava direitinho mas no IIS esta dando erro de ODBC e ADODB.RecordSet. O que pode ser ? alguém pode me ajudar ?
<html> <% ' Esta Função recebe o nome do arquivo e retorna a imagem ' correspondente ao mesmo baseado em sua extensão. Function ShowImageForType(strName) Dim strTemp strTemp = strName If strTemp <> "dir" Then strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1))) End If Select Case strTemp Case "asp" strTemp = "asp" Case "dir" strTemp = "dir" Case "htm", "html" strTemp = "htm" Case "gif", "jpg" strTemp = "img" Case "txt" strTemp = "txt" Case Else strTemp = "misc" End Select 'strTemp = "<img src=""images/dir_" & strTemp & ".gif"" width=""16"" height=""16"" border=""0"">" strTemp = "<img src=""Figuras/Pasta_Azul.gif"" width=""16"" height=""16"" border=""0"">" ShowImageForType = strTemp End Function %> <% Dim strPath Dim objFSO Dim objFolder Dim objItem Dim rstFiles Const adVarChar = 200 Const adInteger = 3 Const adDate = 7 strPath = "../../../Download/Base/CompPend/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) %> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title></title> </head> <body topmargin="0" leftmargin="0" link="#00005A" vlink="#00005A" alink="#00005A" bgcolor="#F0F0F0"> <div align="center"> <center> <table topmargin="0" leftmargin="0" border="0" bordercolor="#00005A" cellspacing="0" cellpadding="3" width="100%" height="41"> <tr bgcolor="#FFFFFF"> <td align="center" height="11" style="border-right: 2 ridge #D0F500" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"> Nome do Arquivo </font></b></td> <td align="center" height="11" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"> Data do Arquivo </font></b></td> <td align="center" height="11" style="border-left: 2 ridge #D0F500" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"> Tamanho do Arquivo ( Mb ) </font></b></td> </tr> <% Set rstFiles = Server.CreateObject("ADODB.Recordset") rstFiles.Fields.Append "name", adVarChar, 255 rstFiles.Fields.Append "size", adInteger rstFiles.Fields.Append "date", adDate rstFiles.Fields.Append "type", adVarChar, 255 rstFiles.Open For Each objItem In objFolder.Files rstFiles.AddNew rstFiles.Fields("name").Value = objItem.Name rstFiles.Fields("size").Value = objItem.Size rstFiles.Fields("date").Value = objItem.DateCreated rstFiles.Fields("type").Value = objItem.Type Next Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing rstFiles.Sort = "name ASC, date DESC" rstFiles.MoveFirst Do While Not rstFiles.EOF %> <tr bgcolor="#FFFFFF"> <td align="center" width="40%" height="100%" style="border-right: 2 ridge #D0F500; border-top: 2 ridge #D0F500" valign="top" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"> <%= ShowImageForType(rstFiles.Fields("name").Value) %> <a href="<%= strPath & rstFiles.Fields("name").Value %>" style="text-decoration: none"><%= rstFiles.Fields("name").Value %></a></font></b></td> <td align="center" width="20%" height="100%" style="border-top: 2 ridge #D0F500" valign="top" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"><%= FormatDateTime(rstFiles.Fields("date").Value,2) %></font></b></td> <td align="center" width="40%" height="100%" style="border-left: 2 ridge #D0F500; border-top: 2 ridge #D0F500" valign="top" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"><%= FormatNumber(((rstFiles.Fields("size").Value)/1000),0) %><br> <br> <br> <br> </font></b></td> </tr> <% rstFiles.MoveNext Loop rstFiles.Close Set rstFiles = Nothing %> </table></center> </div> </body> </html>Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.