HI
Firstly, I want to say that I am VERY limited in my exposure to IIS and ASP!
I have managed to migrate an IIS6 website to an IIS8 set-up on a 2012 server (This took a very long time!). My default page is working perfectly and I can browse to it from within IIS manager with no issue, however, when I try to browse to other pages I am greeted with an HTTP 500 Internal Server Error and I cannot work out why! The website is configured using version 2 classic.
The code for one of the offending ASP files is as below so hopefully someone will no the answer!!
<html >
<%
Dim oConn
Dim ConnectionString
Dim lngJobNo
Dim pDate
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\cts-srv01\apps\db\db.mdb"
lngJobNo = Request.QueryString ("JobNo")
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.ConnectionString = ConnectionString
oConn.Open
Dim oRS
Set oRS = server.CreateObject ("ADODB.Recordset")
oRS.Open "SELECT * FROM [qryJobEmail] WHERE JobNo=" & lngJobNo ,oConn ,1,3
Dim strJobType
If oRS.RecordCount = 0 Then
Response.Write "No Job Found"
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.End
End If
%>
<head >
<%
If oRS("Eng_Service") Then
strJobType = "Service"
End If
If oRS("Eng_Breakdown") Then
strJobType = "Breakdown"
End If
If oRS("Eng_Commission") Then
strJobType = "Commission"
End If
If oRS("Eng_Other") Then
strJobType = "Other"
End If
%>
<title >Job No: <%=oRS("JobNo") %></title>
<style type ="text/css" >
p{Font-Size: 10pt; Font-Family: Arial;}
.legend { Font-Size: 10pt; Font-Family: Arial;Display:Block;margin-bottom: 2px;margin-top: 2px;font-weight:bold;}
.field {
margin-bottom: 2px;
Font-Size: 10pt;
Font-Family: Arial;
border-width:1pt;
background-color: #EEEEEE;
font-weight:bold;
color: #0000ff;
word-wrap: break-word;
}
.divbox {border-width:1pt;border-style: solid;margin: 5px;padding:5px;background-color: #FEFEFE;}
</style>
</head>
<body >
<p><%=Date()%></p>
<p><b>Re: <%=oRS("ST_SITENAME")%></b></p>
<p>Please find attached ( <%=strJobType%> ) for job number <%=oRS("JobNo")%> as carried out by engineer <%=oRS("Eng_Name")%> on <%=oRS("Job_Start")%></p>
<p>If we can be of any further assistance please do not hesitate to contacts the service team on 0845 208 2530.</p>
<p>Yours sincerely<br>CHANNEL TECHNICAL SERVICES</p>
</body>
<%
oRS.Close
set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
</html>
Many thanks.
Steve
Firstly, I want to say that I am VERY limited in my exposure to IIS and ASP!
I have managed to migrate an IIS6 website to an IIS8 set-up on a 2012 server (This took a very long time!). My default page is working perfectly and I can browse to it from within IIS manager with no issue, however, when I try to browse to other pages I am greeted with an HTTP 500 Internal Server Error and I cannot work out why! The website is configured using version 2 classic.
The code for one of the offending ASP files is as below so hopefully someone will no the answer!!
<html >
<%
Dim oConn
Dim ConnectionString
Dim lngJobNo
Dim pDate
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\cts-srv01\apps\db\db.mdb"
lngJobNo = Request.QueryString ("JobNo")
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.ConnectionString = ConnectionString
oConn.Open
Dim oRS
Set oRS = server.CreateObject ("ADODB.Recordset")
oRS.Open "SELECT * FROM [qryJobEmail] WHERE JobNo=" & lngJobNo ,oConn ,1,3
Dim strJobType
If oRS.RecordCount = 0 Then
Response.Write "No Job Found"
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.End
End If
%>
<head >
<%
If oRS("Eng_Service") Then
strJobType = "Service"
End If
If oRS("Eng_Breakdown") Then
strJobType = "Breakdown"
End If
If oRS("Eng_Commission") Then
strJobType = "Commission"
End If
If oRS("Eng_Other") Then
strJobType = "Other"
End If
%>
<title >Job No: <%=oRS("JobNo") %></title>
<style type ="text/css" >
p{Font-Size: 10pt; Font-Family: Arial;}
.legend { Font-Size: 10pt; Font-Family: Arial;Display:Block;margin-bottom: 2px;margin-top: 2px;font-weight:bold;}
.field {
margin-bottom: 2px;
Font-Size: 10pt;
Font-Family: Arial;
border-width:1pt;
background-color: #EEEEEE;
font-weight:bold;
color: #0000ff;
word-wrap: break-word;
}
.divbox {border-width:1pt;border-style: solid;margin: 5px;padding:5px;background-color: #FEFEFE;}
</style>
</head>
<body >
<p><%=Date()%></p>
<p><b>Re: <%=oRS("ST_SITENAME")%></b></p>
<p>Please find attached ( <%=strJobType%> ) for job number <%=oRS("JobNo")%> as carried out by engineer <%=oRS("Eng_Name")%> on <%=oRS("Job_Start")%></p>
<p>If we can be of any further assistance please do not hesitate to contacts the service team on 0845 208 2530.</p>
<p>Yours sincerely<br>CHANNEL TECHNICAL SERVICES</p>
</body>
<%
oRS.Close
set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
</html>
Many thanks.
Steve