On Mar 27, 6:06 pm, "Bob Barrows [MVP]" <reb01...@NOyah oo.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:
connectionstrin g = "Driver={SQ L Native
Client};Server= x.x.x.x;Databas e=distweb;Uid=x xx;Pwd=xxx;MARS _Connection=yes ;"
Set oC = Server.CreateOb ject("ADODB.Con nection")
oC.Open connectionstrin g
Set oRS = Server.CreateOb ject("ADODB.Rec ordset")
sqlStr = "SELECT * FROM pagedata WHERE pageid = " & int(pageid) & "
and pid = " & int(pid) & " AND folder = '" & application("va rfolder")
& "' order by rank, id"
set oRS = oC.execute(sqlS TR)
' If there are no paragraphs created, then display an under
construction notice
IF ors.EOF THEN
Response.Write( "<CENTER><B>Thi s 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("hea der") = true THEN
BuildHeader(ors .fields("pageda ta"))
ELSE
'Image
IF ors.fields("ima ge") <"" THEN
%>
<IMG SRC="/<%=ors.fields(" image")%>" ALIGN=<
%=ors.fields("i magealign")%>>
<img alt="" src="spacer.gif " height="0" align="left" width="1">
<%
END IF
'Check to see if this is a title
vt = ors.fields("tit le")
IF vt <"" THEN
%>
<B><%=vt%></B><BR>
<%
END IF
Response.write( ors.fields("pag edata") & "<BR><BR>")
if ors.fields("img cap") <"" then
%>
<div style="width:10 0%; text-align:<
%=ors.fields("i magealign")%>"> <table align="<%=ors.f ields("imageali gn")
%>"><tr><td align="left" style="font-size:7pt;"><%=o rs.fields("imgc ap")
%></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