Тема: WSH,VBS,JS:
Здравствуйте уважаемые.
Ковырялся уже очень долго и решил спросить, возможно кто-то знает в чём проблема.
Пользовался локальным сайтом, опубликованным через iis 5.1, но потребовалось перейти на другую операционку Windows 7, а там стоит IIS 7.5/.
Опубликовываю сай в IIS 7.5 и всё работает, но данные в одном разделе в виде таблицы, взятой из .mdb файла в папке сайта не отображаются, хотя тот же самый сайт и таблица отображается в iis 5.1 под Windows XPs sp2. Код так же не изменялся и был скопирован с рабочего под IIS 5.1.
Долго ломал голову, но так и не смог найти решение.
Код страницы выложу здесь.
<html>
<!-- #include file="scripts/library.inc" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=<%=session("szContentCharset")%>">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Billet list</title>
<link rel="stylesheet" type="text/css" href="themes/progetto-pe/theme.css">
<meta name="Microsoft Theme" content="none, default">
</head>
<%on error resume next
Set conn1 = session("Conn_prod")
szSelect= "select ID,BDay,BHour,T_Dead,T_Extr,Speed_Set,Speed_AV,Temp,Len,Fond,Temp_Oil,Prex_Max,Prex_Min from QRY_BILL"
szDa=request.queryString("szDa")
szA=request.queryString("szA")
szSql = szSelect
if szDa >< "" then
szSql = szSql & " where Dta>=#" & invertGM(szDa) & "# AND Dta<=#" & invertGM(szA) & "#"
else
'riga vuota
end if
szSql = szSql & " ORDER BY ID DESC"
if conn1.state=adStateClosed then conn1.open
Set rs1 = CreateObject("ADODB.Recordset")
'rs1.CursorLocation=adUseClient
rs1.Open szSql,conn1,,3
%>
<body>
<%' if szDa="" then
szTitle=TR("Archivio billette")%>
<!-- #include file="st_barra.asp" -->
<%'end if%>
<table border="1" width="100%">
<tr>
<th><%=(TR("ID"))%></th>
<th><%=(TR("BDay"))%></th>
<th><%=(TR("BHour"))%></th>
<th><%=(TR("T_Ded"))%></th>
<th><%=(TR("T_Etr"))%></th>
<th><%=(TR("Speed_Set"))%></th>
<th><%=(TR("Speed_AV"))%></th>
<th><%=(TR("Prex_Max"))%></th>
<th><%=(TR("Prex_Min"))%></th>
<th><%=(TR("Temp"))%></th>
<th><%=(TR("Len"))%></th>
<th><%=(TR("Fond"))%></th>
<th><%=(TR("T_O"))%></th>
</tr>
<%c=0
for c=0 to 5000
%>
<tr>
<td> <%=rs1.fields("ID")%></td>
<td> <%=rs1.fields("BDay")%></td>
<td> <%=rs1.fields("BHour")%></td>
<td> <%=formatNumber(rs1.fields("T_Ded"),2)%></td>
<td> <%=rs1.fields("T_Etr")%></td>
<td> <%=formatNumber(rs1.fields("Speed_Set"),3)%></td>
<td> <%=formatNumber(rs1.fields("Speed_AV"),3)%></td>
<td> <%=formatNumber(rs1.fields("Pre_Max"),3)%></td>
<td> <%=formatNumber(rs1.fields("Pre_Min"),3)%></td>
<td> <%=formatNumber(rs1.fields("Temp"),0)%></td>
<td> <%=rs1.fields("Len")%></td>
<td> <%=rs1.fields("Fond")%></td>
<td> <%=formatNumber(rs1.fields("Temp_O"),0)%></td>
</tr>
<%rs1.movenext
if rs1.eof then exit for
next
'loop
%>
</table>
<!-- #include file="st_terminateRS.asp" -->
</body>
</html>
