On Mar 27, 6:06 pm, "Bob Barrows [MVP]" <reb01...@NOyahoo.SPAMcom>
wrote:
I don't know how you expect us to help you. Show us some code to allow us to
reproduce your problem.
As a guess, could it be this old ODBC bug?http://www.aspfaq.com/show.asp?id=2188
Sorry for the lack of detail - I thought it might be a common
weirdness with an upgrade like this. Guess not. The code ran like a
Swiss watch against a 2000 server (and still does). It is very long,
and well, not all that well written. Sadly, I need this to work
against 2005 without re-coding the whole thing. Here's a sample that
contains relevant parts:
connectionstring = "Driver={SQL Native
Client};Server=x.x.x.x;Database=distweb;Uid=xxx;Pw d=xxx;MARS_Connection=yes;"
Set oC = Server.CreateObject("ADODB.Connection")
oC.Open connectionstring
Set oRS = Server.CreateObject("ADODB.Recordset")
sqlStr = "SELECT * FROM pagedata WHERE pageid = " & int(pageid) & "
and pid = " & int(pid) & " AND folder = '" & application("varfolder")
& "' order by rank, id"
set oRS = oC.execute(sqlSTR)
' If there are no paragraphs created, then display an under
construction notice
IF ors.EOF THEN
Response.Write("<CENTER><B>This section is not yet complete.</B></
CENTER><BR>")
ELSE
' Loop through the available paragraphs
DO WHILE not ORS.EOF
' If the pagedata is a header, print it...else, go to the paragraph
section
IF ors.fields("header") = true THEN
BuildHeader(ors.fields("pagedata"))
ELSE
'Image
IF ors.fields("image") <"" THEN
%>
<IMG SRC="/<%=ors.fields("image")%>" ALIGN=<
%=ors.fields("imagealign")%>>
<img alt="" src="spacer.gif" height="0" align="left" width="1">
<%
END IF
'Check to see if this is a title
vt = ors.fields("title")
IF vt <"" THEN
%>
<B><%=vt%></B><BR>
<%
END IF
Response.write(ors.fields("pagedata") & "<BR><BR>")
if ors.fields("imgcap") <"" then
%>
<div style="width:100%; text-align:<
%=ors.fields("imagealign")%>"><table align="<%=ors.fields("imagealign")
%>"><tr><td align="left" style="font-size:7pt;"><%=ors.fields("imgcap")
%></td></tr></table></div>
<%
end if
END IF 'IF header
ors.MoveNext
loop
END IF
oRS.Close
set oRS = nothing
oC.close
Set oC = nothing
-----------------------------------------------------------------
Thanks for any help.
Elliott