about to shoot myself Conn.open() works RANDOMLY!!

N

NewCents

ok this page is located @
http://www25.brinkster.com/mixertrucks/db/inventory.aspx
the database is @
http://www25.brinkster.com/mixertrucks/db/myaccess.mdb

sometimes oConn.Open() works, it was working at the beginning of the
day when I viewed the page and reloaded it a million times and even
called other people to go to the web page and reload it a million
times. I didn't do ANYTHING to my web space or even access my
account. I open the page at the end of the day and get this (i saved
the error HTM file):

http://www25.brinkster.com/mixertrucks/db/ERROR.htm

why does it decide to work a few times and then quits?? here is my
code and the VERY first oConn.Open() -(located @ line 31)- is the one
that decides to work randomly

If you can figure out why it does this I owe you a million dollars in
IOU's.

Also, this db is just for testing that's why it's not password
protected.

Another Also, I tried including <%@ Import
Namespace="System.Data.OLEDB" %> and changing my code respectively
to work w/ this and it didn't change anything. I just added the
oConn.Close above the oConn.Open() thinking the DB was left open or
something and wondering if I could somehow make sure it was closed.
As you can tell I don't know what to do.




<!-------------begin---inventory.aspx------------------------->

<%@ Page Language="VB" Debug="True" %>
<%@ import Namespace="System.Net" %>
<%@ import Namespace="System.IO" %>
<script runat="server">

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs)


dim PrintFooter as boolean
dim IDtext,pagetype,getPrint as string
IDtext = Request.QueryString("id")
pagetype = Request.QueryString("type")
getPrint = Request.QueryString("print")
PrintFooter = true
dim NOID as boolean

Dim sConnString As String
Dim sSQL As String
Dim oConn As System.Data.OleDb.OleDbConnection
Dim oComm As System.Data.OleDb.OleDbCommand
Dim oDR As System.Data.OleDb.OleDbDataReader
Dim i As Integer
Dim sColor As String
Dim sTemp As String
Dim sMapPath As String

sConnString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" &
server.mappath("myaccess.mdb")
oConn = New System.Data.OleDb.OleDbConnection(sConnString)
oConn.Close
oConn.Open()

'select * from entry order by id desc
if (IDtext <> "") then
sSQL = "SELECT name, email, message_text, test, test2, test3, test4,
test5, test6, test7, test8, test9, test10, test11, test12, test13,
test14, test15 from entry where id = " & IDtext
NOID = true
else
sSQL = "SELECT id, name, email, message_text, test, test2, test3,
test4, test5, test6, test7, test8, test9, test10, test11, test12,
test13, test14, test15 FROM entry order by name asc, test desc"
'Dim strSQL as string ="select * from entry order by id desc"
NOID = false
end if
oComm = New System.Data.OleDb.OleDbCommand(sSQL, oConn)
oDR = oComm.ExecuteReader()

if (getPrint <> "") then
'print
Response.Write("<title>Chaparral Concrete Inventory
Page</title><body
background=http://www.mixertrucks.net/images/backp.jpg marginheight=0
marginwidth=0 leftmargin=0 topmargin=0 link=#002760 alink=#002760
vlink=#002760 font=arial>")
Response.Write("<table width=775 border=0 cellspacing=0
cellpadding=0><tr><td valign=top><table width=208
height=411 border=0 cellspacing=0
cellpadding=0><tr></tr></table></td><td
valign=top>")
Response.Write("<font face=Verdana size=2>")

Response.Write("<table width=100% cellpadding=2 cellspacing=2>")

Response.Write("<tr><td colspan = 8>
<center><font size=6>Chaparral Concrete Equipment,
LP</font></center></td></tr>")
Response.Write("<tr><td colspan= 8><center><font
size=5>WORLD-WIDE CONCRETE EQUIPMENT
PROVIDER</font></center></td></tr>")
Response.Write("<tr><td> </td><td> </td></tr><tr><td
colspan=8><a href=javascript:window.print()> CLICK HERE TO
PRINT </a></td></tr>")
else
Response.Write("<title>Chaparral Concrete Inventory
Page</title><body vlink=#002760 alink=#002760 link=#002760
bgcolor=#eead33 leftmargin=0
background=http://www.mixertrucks.net/images/back.jpg topmargin=0
marginheight=0 marginwidth=0>")

Response.Write("<table width=100% border=0 cellspacing=0
cellpadding=0><tr><td valign=top width=215><table
width=208 height=411 border=0 cellspacing=0
cellpadding=0><tr><td width=208><img
src=http://www.mixertrucks.net/Toolbar.gif border=0
USEMAP=#Map></td></tr></table></td><td
align = center valign=top>")
Response.Write("<font face=Verdana size=2>")

Response.Write("<table width=100% cellpadding=2 cellspacing=2>")

Response.Write("<tr><center><td align=center
valign=center colspan=8><a name = toppage><img border=0
src=http://www.mixertrucks.net/images/MainTitle.jpg width=293
height=64></a></center></td></tr>")
Response.Write("<tr><center><td align=left valign=left
colspan=8><a href=inventory.aspx?" &
Request.ServerVariables("QUERY_STRING"))

Response.Write("&print=yeas><font size=2>Printable
Version of This Page</font></a></td></tr>")

end if



sColor = "white"

dim prevcategory as string

Do While oDR.Read

if (NOID = true) then
'need to set ID to IDtext

else
IDtext = oDR.Item("id")
end if

dim thiscategory as string


thiscategory = oDR.Item("name")
if (thiscategory = prevcategory) then
'don't print table header

else
'print table header
prevcategory = oDR.Item("name")
Response.Write("<tr>")
Response.Write("<td colspan=7><br>" & oDR.Item("name")
& "</td>")
Response.Write("</tr>")
end if


If sColor = "silver" Then
sColor = "white"
Else
sColor = "silver"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td align=center valign=center>")
if (oDR.Item("test6") <> "") then
Response.Write("<font size=1><a href=inventory.aspx?id="&
IDtext & "&type=picture> <img src=" &
oDR.Item("test6") & " border=1
width=100></a></font>")
end if
if (oDR.Item("test7") <> "") then
Response.Write("<br><font size=1><a href=" &
oDR.Item("test7") & ">Word Doc</a></font>")
end if

if (oDR.Item("test8") <> "") then
Response.Write("<br><font size=1><a
href=inventory.aspx?id=" & IDtext & "&type=spec" &
">Spec Sheet</a></font>")
end if
if (oDR.Item("test10") <> "") then
Response.Write("<br><font size=1><a
href=inventory.aspx?id=" & IDtext & "&type=gallery" &
">Picture Gallery</a></font>")
end if
if (oDR.Item("test14") <> "") then
Response.Write("<br><font size=1><a href=" &
oDR.Item("test14") & ">Extra Word Doc</a></font>")

end if
if (oDR.Item("test15") <> "") then
Response.Write("<br><font size=1><a
href=inventory.aspx?id=" & IDtext & "&type=extraspec"
& ">Extra Spec Sheet</a></font>")
end if
Response.Write("</td>")
Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("email") & "</font></td>")

Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("message_text") &
"</font></td>")
Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("test") & "</font></td>")

Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("test2") & "</font></td>")

Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("test3") & "</font></td>")

Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("test4") & "</font></td>")

Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("test5") &
"</font></td></tr>")



if(pagetype="gallery") then


Response.Write("<tr><td colspan=10 align=center
valign=center><br> <font size=5>" &
oDR.Item("test") & " - " & oDR.Item("test2") & "
Gallery</font></td></tr><br><br>")


if (oDR.Item("test10") <> "") then
Response.Write("<tr><p><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test10") & "
border=1></td></tr>")
end if
if (oDR.Item("test11") <> "") then
Response.Write("<tr><p><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test11") & "
border=1></td></tr>")

end if
if (oDR.Item("test12") <> "") then
Response.Write("<tr><p><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test12") & "
border=1></td></tr>")

end if
if (oDR.Item("test13") <> "") then
Response.Write("<tr><p><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test13") & "
border=1></td></tr>")

end if
if (oDR.Item("test6") <> "") then
Response.Write("<tr><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test6") & "
border=1></td></tr>")
end if

else if (pagetype="spec") then

Response.Write("</table><br><br>")
Response.Write("<br> <font size=5><center>" &
oDR.Item("test") & " - " & oDR.Item("test2") & " Spec
Sheet</font></center><br><br>")

if (oDR.Item("test6") <> "") then
Response.Write("<center><img src=" & oDR.Item("test6")
& " border=1></center><br>")
end if
dim tempstring as string
if(oDR.Item("test8")<> "") then
dim test8location as string
test8location = "http://www25.brinkster.com/mixertrucks/db/" &
oDR.Item("test8")
tempstring=readHtmlPage(test8location)
Response.Write("<center><div align=center>")
Response.Write(tempstring)
Response.Write("</div></center>")

end if

else if (pagetype="extraspec") then

Response.Write("</table><br><br>")
Response.Write("<br> <font size=5><center>" &
oDR.Item("test") & " - " & oDR.Item("test2") & " Spec
Sheet</font></center><br><br>")

if (oDR.Item("test6") <> "") then
Response.Write("<center><img src=" & oDR.Item("test6")
& " border=1></center><br>")
end if
dim tempstring as string
if(oDR.Item("test15")<> "") then
dim test15location as string
test15location = "http://www25.brinkster.com/mixertrucks/db/" &
oDR.Item("test15")
tempstring=readHtmlPage(test15location)

Response.Write(tempstring)
end if


else if (pagetype="spec2") then
Response.Write("</table><br><br>")

Response.Write("<br> <font size=5><center>" &
oDR.Item("test") & " - " & oDR.Item("test2") & " Spec
Sheet</font></center><br><br>")

if (oDR.Item("test6") <> "") then
Response.Write("<center><img src=" & oDR.Item("test6")
& " border=1></center><br>")
end if
Response.Write("<table width = 100%><tr>")
if (oDR.Item("test8") <> "") then
Response.Write("<td width=50% align=center
valign=top><br>" & oDR.Item("test8") &
"</td>")
end if
if (oDR.Item("test9") <> "") then
Response.Write("<td width=50% align=center
valign=top><br>" & oDR.Item("test9") &
"</td>")
end if
PrintFooter=false
Response.Write("</tr></table>")
Response.Write("<center>" & Now() &
"</center></font><br><br>")
Response.Write("</td></tr></table>")

else if (pagetype="spec3") then
Response.Write("</table><br><br>")
Response.Write("<tr><td colspan=10 align=center
valign=center><br> <font size=5>" &
oDR.Item("test") & " - " & oDR.Item("test2") & " Extra
Spec Sheet</font></td></tr><br><br>")

if (oDR.Item("test6") <> "") then
Response.Write("<tr><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test6") & "
border=1><br></td></tr>")
end if
if (oDR.Item("test15") <> "") then
Response.Write("<br><br><Br><tr><td
colspan=10 valign=top><br>" & oDR.Item("test15") &
"</td>")
end if
PrintFooter=false
Response.Write("</tr></table>")
Response.Write(Now() & "</font><br><br>")
Response.Write("</td></tr></table>")


else if (pagetype="picture") then
if (oDR.Item("test6") <> "") then
Response.Write("<tr><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test6") & "
border=1><br></td></tr>")
end if

end if

Loop

if (PrintFooter = true) then
Response.Write("</td></tr></table><br><br>")

Response.Write("<center>" & Now() &
"</font></center><br><br>")
Response.Write("</td></tr></table>")
end if


oDR.Close()
oConn.Close()


if (getPrint <> "") then
Response.Write("<center><table width=775 border=0
cellspacing=0 cellpadding=0><tbody><tr><td
align=left><tr><td colspan = 2><center>MORE
AVAILABLE, PLEASE CALL FOR CURRENT UPDATED
INFORMATION</center></p></td></tr><tr><td
colspan=2> <br></td></tr><tr><td>
MAIN OFFICE</td><td align = right> INTERNATIONAL
OFFICE</td></tr><tr><td> FRED VINCENT
JR </td><td align = right> RICARDO
MOLINA</td></tr><tr><td>222 Winchester
Lane</td><td align = right> ESPINOZA #1453
OTE</td></tr><tr><td> Weatherford,
Texas</td><td align = right> MONTERREY N.L. MEX
64000</td></tr><tr><td> TEL: +1 (817)
677-1276</td><td align = right> TEL/FAX: +52 (818)
340-0440</td></tr><tr><td> FAX:+1 (817)
677-1278</td><td align = right> MOBILE: +52 (818)
064-0783</td></tr><tr><td> <a
href=http://www.mixertrucks.net/>WWW.MIXERTRUCKS.NET</a></td><td
align = right> <a
href=mailto:[email protected]>[email protected]</a></td></tr><tr><td
colspan=2><br></td></tr><tr><td
colspan=2> <center><font size=4>WE FINANCE NEW AND
USED
EQUIPMENT!!!</font></center></td></tr></td></tr></tbody></table></center>")

Response.Write("<br><Br><Br><br><br><br><br>")

else

Response.Write("<table width=100% border=0 cellspacing=0
cellpadding=0><tr><td valign=top><table width=215
border=0 cellspacing=0 cellpadding=0><tr><td
width=215> </td></tr></table></td><td
valign=top><table width=100% border=0 cellspacing=0
cellpadding=0><tbody><tr><td
align=left><tr><td colspan = 2><center>MORE
AVAILABLE, PLEASE CALL FOR CURRENT UPDATED
INFORMATION</center></p></td></tr><tr><td
colspan=2> <br></td></tr><tr><td>
MAIN OFFICE</td><td align = right> INTERNATIONAL
OFFICE</td></tr><tr><td> FRED VINCENT
JR </td><td align = right> RICARDO
MOLINA</td></tr><tr><td>222 Winchester
Lane</td><td align = right> ESPINOZA #1453
OTE</td></tr><tr><td> Weatherford,
Texas</td><td align = right> MONTERREY N.L. MEX
64000</td></tr><tr><td> TEL: +1 (817)
677-1276</td><td align = right> TEL/FAX: +52 (818)
340-0440</td></tr><tr><td> FAX:+1 (817)
677-1278</td><td align = right> MOBILE: +52 (818)
064-0783</td></tr><tr><td> <a
href=http://www.mixertrucks.net/>WWW.MIXERTRUCKS.NET</a></td><td
align = right> <a
href=mailto:[email protected]>[email protected]</a></td></tr><tr><td
colspan=2><br></td></tr><tr><td
colspan=2> <center><font size=4>WE FINANCE NEW AND
USED
EQUIPMENT!!!</font></center></td></tr></td></tr></tbody></table></td></tr></tbody></table>")

Response.Write("<br><Br><Br><br><br><br><br>")

end if
oDR.close
oConn.close
End Sub

Function readHtmlPage(url As String) As String
Dim objResponse As WebResponse
Dim objRequest As WebRequest
Dim result As String
objRequest = System.Net.HttpWebRequest.Create(url)
objResponse = objRequest.GetResponse()
Dim sr As New StreamReader(objResponse.GetResponseStream())
result = sr.ReadToEnd()

'clean up StreamReader
sr.Close()

return result
End Function

</script>
<html>
<head>
</head>
<body>
<map name="Map">
<area shape="RECT" coords="16,156,132,194"
href="http://www.mixertrucks.net/Languages/English/english.html"
/>
<area shape="RECT" coords="26,315,148,343"
href="http://www.mixertrucks.net/Languages/English/contactus/contactus.html"
/>
<area shape="RECT" coords="29,275,131,295"
href="http://www.mixertrucks.net/Languages/English/aboutus/aboutus.html"
/>
<area shape="RECT" coords="15,8,134,61"
href="http://www.mixertrucks.net/" />
<area shape="RECT" coords="22,210,149,252"
href="http://www25.brinkster.com/mixertrucks/db/inventory.aspx"
/></map>
</body>
</html>
 
C

Chris Taylor

Hi,

Don't shoot yourself. I believe the problem is with the Brinkster server
configuration. They have at least 3 configurations of server and depending
on which server serves your request the database access succeeds or fails. I
sent then an email (see below) that explained the situation and how I mapped
the problem.I received a reply from John Brinkster on the 7 Jan 2004 stating
that there admins will look into it, and that was that. And as you know the
problem persists.
I have been experiencing database access problems. So I put a very
simple file on my site

http://www25.brinkster.com/taylorza/testserver.aspx

This file tries to access my database and logs the version of the .NET
Framework, the
machine name and the success/fail status of opening the database
connection. After running
the test form a number of times, I get the following results.

Please take note of the Machine Name and the Framework version. Could
you please advise.

------------------------------------------------------------------------
Database connection Failed
Machine Name :GENERAL3A
NET Framework version 1.1.4322.573

System.Data.OleDb.OleDbException: Unspecified error
at System.Data.OleDb.OleDbConnection.ProcessResults(Int32 hr)
at System.Data.OleDb.OleDbConnection.InitializeProvider()
at System.Data.OleDb.OleDbConnection.Open()
at ASP.TestServer_aspx.Page_Load(Object sender, EventArgs e) in
\\genfs3\www25 \taylorza\testserver.aspx:line 19
------------------------------------------------------------------------

------------------------------------------------------------------------
Database connection succeeded
Machine Name :GENERAL3B
NET Framework version 1.0.3705.288
------------------------------------------------------------------------

------------------------------------------------------------------------
Database connection succeeded
Machine Name :GENERAL3C
NET Framework version 1.1.4322.573
------------------------------------------------------------------------

Hope this helps

--
Chris Taylor
http://dotnetjunkies.com/WebLog/chris.taylor/
NewCents said:
ok this page is located @
http://www25.brinkster.com/mixertrucks/db/inventory.aspx
the database is @
http://www25.brinkster.com/mixertrucks/db/myaccess.mdb

sometimes oConn.Open() works, it was working at the beginning of the
day when I viewed the page and reloaded it a million times and even
called other people to go to the web page and reload it a million
times. I didn't do ANYTHING to my web space or even access my
account. I open the page at the end of the day and get this (i saved
the error HTM file):

http://www25.brinkster.com/mixertrucks/db/ERROR.htm

why does it decide to work a few times and then quits?? here is my
code and the VERY first oConn.Open() -(located @ line 31)- is the one
that decides to work randomly

If you can figure out why it does this I owe you a million dollars in
IOU's.

Also, this db is just for testing that's why it's not password
protected.

Another Also, I tried including <%@ Import
Namespace="System.Data.OLEDB" %> and changing my code respectively
to work w/ this and it didn't change anything. I just added the
oConn.Close above the oConn.Open() thinking the DB was left open or
something and wondering if I could somehow make sure it was closed.
As you can tell I don't know what to do.




<!-------------begin---inventory.aspx------------------------->

<%@ Page Language="VB" Debug="True" %>
<%@ import Namespace="System.Net" %>
<%@ import Namespace="System.IO" %>
<script runat="server">

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs)


dim PrintFooter as boolean
dim IDtext,pagetype,getPrint as string
IDtext = Request.QueryString("id")
pagetype = Request.QueryString("type")
getPrint = Request.QueryString("print")
PrintFooter = true
dim NOID as boolean

Dim sConnString As String
Dim sSQL As String
Dim oConn As System.Data.OleDb.OleDbConnection
Dim oComm As System.Data.OleDb.OleDbCommand
Dim oDR As System.Data.OleDb.OleDbDataReader
Dim i As Integer
Dim sColor As String
Dim sTemp As String
Dim sMapPath As String

sConnString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" &
server.mappath("myaccess.mdb")
oConn = New System.Data.OleDb.OleDbConnection(sConnString)
oConn.Close
oConn.Open()

'select * from entry order by id desc
if (IDtext <> "") then
sSQL = "SELECT name, email, message_text, test, test2, test3, test4,
test5, test6, test7, test8, test9, test10, test11, test12, test13,
test14, test15 from entry where id = " & IDtext
NOID = true
else
sSQL = "SELECT id, name, email, message_text, test, test2, test3,
test4, test5, test6, test7, test8, test9, test10, test11, test12,
test13, test14, test15 FROM entry order by name asc, test desc"
'Dim strSQL as string ="select * from entry order by id desc"
NOID = false
end if
oComm = New System.Data.OleDb.OleDbCommand(sSQL, oConn)
oDR = oComm.ExecuteReader()

if (getPrint <> "") then
'print
Response.Write("<title>Chaparral Concrete Inventory
Page</title><body
background=http://www.mixertrucks.net/images/backp.jpg marginheight=0
marginwidth=0 leftmargin=0 topmargin=0 link=#002760 alink=#002760
vlink=#002760 font=arial>")
Response.Write("<table width=775 border=0 cellspacing=0
cellpadding=0><tr><td valign=top><table width=208
height=411 border=0 cellspacing=0
cellpadding=0><tr></tr></table></td><td
valign=top>")
Response.Write("<font face=Verdana size=2>")

Response.Write("<table width=100% cellpadding=2 cellspacing=2>")

Response.Write("<tr><td colspan = 8>
<center><font size=6>Chaparral Concrete Equipment,
LP</font></center></td></tr>")
Response.Write("<tr><td colspan= 8><center><font
size=5>WORLD-WIDE CONCRETE EQUIPMENT
PROVIDER</font></center></td></tr>")
Response.Write("<tr><td> </td><td> </td></tr><tr><td
colspan=8><a href=javascript:window.print()> CLICK HERE TO
PRINT </a></td></tr>")
else
Response.Write("<title>Chaparral Concrete Inventory
Page</title><body vlink=#002760 alink=#002760 link=#002760
bgcolor=#eead33 leftmargin=0
background=http://www.mixertrucks.net/images/back.jpg topmargin=0
marginheight=0 marginwidth=0>")

Response.Write("<table width=100% border=0 cellspacing=0
cellpadding=0><tr><td valign=top width=215><table
width=208 height=411 border=0 cellspacing=0
cellpadding=0><tr><td width=208><img
src=http://www.mixertrucks.net/Toolbar.gif border=0
USEMAP=#Map></td></tr></table></td><td
align = center valign=top>")
Response.Write("<font face=Verdana size=2>")

Response.Write("<table width=100% cellpadding=2 cellspacing=2>")

Response.Write("<tr><center><td align=center
valign=center colspan=8><a name = toppage><img border=0
src=http://www.mixertrucks.net/images/MainTitle.jpg width=293
height=64></a></center></td></tr>")
Response.Write("<tr><center><td align=left valign=left
colspan=8><a href=inventory.aspx?" &
Request.ServerVariables("QUERY_STRING"))

Response.Write("&print=yeas><font size=2>Printable
Version of This Page</font></a></td></tr>")

end if



sColor = "white"

dim prevcategory as string

Do While oDR.Read

if (NOID = true) then
'need to set ID to IDtext

else
IDtext = oDR.Item("id")
end if

dim thiscategory as string


thiscategory = oDR.Item("name")
if (thiscategory = prevcategory) then
'don't print table header

else
'print table header
prevcategory = oDR.Item("name")
Response.Write("<tr>")
Response.Write("<td colspan=7><br>" & oDR.Item("name")
& "</td>")
Response.Write("</tr>")
end if


If sColor = "silver" Then
sColor = "white"
Else
sColor = "silver"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td align=center valign=center>")
if (oDR.Item("test6") <> "") then
Response.Write("<font size=1><a href=inventory.aspx?id="&
IDtext & "&type=picture> <img src=" &
oDR.Item("test6") & " border=1
width=100></a></font>")
end if
if (oDR.Item("test7") <> "") then
Response.Write("<br><font size=1><a href=" &
oDR.Item("test7") & ">Word Doc</a></font>")
end if

if (oDR.Item("test8") <> "") then
Response.Write("<br><font size=1><a
href=inventory.aspx?id=" & IDtext & "&type=spec" &
">Spec Sheet</a></font>")
end if
if (oDR.Item("test10") <> "") then
Response.Write("<br><font size=1><a
href=inventory.aspx?id=" & IDtext & "&type=gallery" &
">Picture Gallery</a></font>")
end if
if (oDR.Item("test14") <> "") then
Response.Write("<br><font size=1><a href=" &
oDR.Item("test14") & ">Extra Word Doc</a></font>")

end if
if (oDR.Item("test15") <> "") then
Response.Write("<br><font size=1><a
href=inventory.aspx?id=" & IDtext & "&type=extraspec"
& ">Extra Spec Sheet</a></font>")
end if
Response.Write("</td>")
Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("email") & "</font></td>")

Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("message_text") &
"</font></td>")
Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("test") & "</font></td>")

Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("test2") & "</font></td>")

Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("test3") & "</font></td>")

Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("test4") & "</font></td>")

Response.Write("<td valign=center align=center><font
size=2>" & oDR.Item("test5") &
"</font></td></tr>")



if(pagetype="gallery") then


Response.Write("<tr><td colspan=10 align=center
valign=center><br> <font size=5>" &
oDR.Item("test") & " - " & oDR.Item("test2") & "
Gallery</font></td></tr><br><br>")


if (oDR.Item("test10") <> "") then
Response.Write("<tr><p><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test10") & "
border=1></td></tr>")
end if
if (oDR.Item("test11") <> "") then
Response.Write("<tr><p><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test11") & "
border=1></td></tr>")

end if
if (oDR.Item("test12") <> "") then
Response.Write("<tr><p><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test12") & "
border=1></td></tr>")

end if
if (oDR.Item("test13") <> "") then
Response.Write("<tr><p><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test13") & "
border=1></td></tr>")

end if
if (oDR.Item("test6") <> "") then
Response.Write("<tr><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test6") & "
border=1></td></tr>")
end if

else if (pagetype="spec") then

Response.Write("</table><br><br>")
Response.Write("<br> <font size=5><center>" &
oDR.Item("test") & " - " & oDR.Item("test2") & " Spec
Sheet</font></center><br><br>")

if (oDR.Item("test6") <> "") then
Response.Write("<center><img src=" & oDR.Item("test6")
& " border=1></center><br>")
end if
dim tempstring as string
if(oDR.Item("test8")<> "") then
dim test8location as string
test8location = "http://www25.brinkster.com/mixertrucks/db/" &
oDR.Item("test8")
tempstring=readHtmlPage(test8location)
Response.Write("<center><div align=center>")
Response.Write(tempstring)
Response.Write("</div></center>")

end if

else if (pagetype="extraspec") then

Response.Write("</table><br><br>")
Response.Write("<br> <font size=5><center>" &
oDR.Item("test") & " - " & oDR.Item("test2") & " Spec
Sheet</font></center><br><br>")

if (oDR.Item("test6") <> "") then
Response.Write("<center><img src=" & oDR.Item("test6")
& " border=1></center><br>")
end if
dim tempstring as string
if(oDR.Item("test15")<> "") then
dim test15location as string
test15location = "http://www25.brinkster.com/mixertrucks/db/" &
oDR.Item("test15")
tempstring=readHtmlPage(test15location)

Response.Write(tempstring)
end if


else if (pagetype="spec2") then
Response.Write("</table><br><br>")

Response.Write("<br> <font size=5><center>" &
oDR.Item("test") & " - " & oDR.Item("test2") & " Spec
Sheet</font></center><br><br>")

if (oDR.Item("test6") <> "") then
Response.Write("<center><img src=" & oDR.Item("test6")
& " border=1></center><br>")
end if
Response.Write("<table width = 100%><tr>")
if (oDR.Item("test8") <> "") then
Response.Write("<td width=50% align=center
valign=top><br>" & oDR.Item("test8") &
"</td>")
end if
if (oDR.Item("test9") <> "") then
Response.Write("<td width=50% align=center
valign=top><br>" & oDR.Item("test9") &
"</td>")
end if
PrintFooter=false
Response.Write("</tr></table>")
Response.Write("<center>" & Now() &
"</center></font><br><br>")
Response.Write("</td></tr></table>")

else if (pagetype="spec3") then
Response.Write("</table><br><br>")
Response.Write("<tr><td colspan=10 align=center
valign=center><br> <font size=5>" &
oDR.Item("test") & " - " & oDR.Item("test2") & " Extra
Spec Sheet</font></td></tr><br><br>")

if (oDR.Item("test6") <> "") then
Response.Write("<tr><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test6") & "
border=1><br></td></tr>")
end if
if (oDR.Item("test15") <> "") then
Response.Write("<br><br><Br><tr><td
colspan=10 valign=top><br>" & oDR.Item("test15") &
"</td>")
end if
PrintFooter=false
Response.Write("</tr></table>")
Response.Write(Now() & "</font><br><br>")
Response.Write("</td></tr></table>")


else if (pagetype="picture") then
if (oDR.Item("test6") <> "") then
Response.Write("<tr><td colspan=10 align=center
valign=center><img src=" & oDR.Item("test6") & "
border=1><br></td></tr>")
end if

end if

Loop

if (PrintFooter = true) then
Response.Write("</td></tr></table><br><br>")

Response.Write("<center>" & Now() &
"</font></center><br><br>")
Response.Write("</td></tr></table>")
end if


oDR.Close()
oConn.Close()


if (getPrint <> "") then
Response.Write("<center><table width=775 border=0
cellspacing=0 cellpadding=0><tbody><tr><td
align=left><tr><td colspan = 2><center>MORE
AVAILABLE, PLEASE CALL FOR CURRENT UPDATED
INFORMATION</center></p></td></tr><tr><td
colspan=2> <br></td></tr><tr><td>
MAIN OFFICE</td><td align = right> INTERNATIONAL
OFFICE</td></tr><tr><td> FRED VINCENT
JR </td><td align = right> RICARDO
MOLINA</td></tr><tr><td>222 Winchester
Lane</td><td align = right> ESPINOZA #1453
OTE</td></tr><tr><td> Weatherford,
Texas</td><td align = right> MONTERREY N.L. MEX
64000</td></tr><tr><td> TEL: +1 (817)
677-1276</td><td align = right> TEL/FAX: +52 (818)
340-0440</td></tr><tr><td> FAX:+1 (817)
677-1278</td><td align = right> MOBILE: +52 (818)
064-0783</td></tr><tr><td> <a
href=http://www.mixertrucks.net/>WWW.MIXERTRUCKS.NET</a></td><td
align = right> <a
href=mailto:[email protected]>[email protected]</a></td></tr><tr><td
colspan=2><br></td></tr><tr><td
colspan=2> <center><font size=4>WE FINANCE NEW AND
USED
Click to expand...
EQUIPMENT!!! said:
Response.Write("<br><Br><Br><br><br><br><br>")

else

Response.Write("<table width=100% border=0 cellspacing=0
cellpadding=0><tr><td valign=top><table width=215
border=0 cellspacing=0 cellpadding=0><tr><td
width=215> </td></tr></table></td><td
valign=top><table width=100% border=0 cellspacing=0
cellpadding=0><tbody><tr><td
align=left><tr><td colspan = 2><center>MORE
AVAILABLE, PLEASE CALL FOR CURRENT UPDATED
INFORMATION</center></p></td></tr><tr><td
colspan=2> <br></td></tr><tr><td>
MAIN OFFICE</td><td align = right> INTERNATIONAL
OFFICE</td></tr><tr><td> FRED VINCENT
JR </td><td align = right> RICARDO
MOLINA</td></tr><tr><td>222 Winchester
Lane</td><td align = right> ESPINOZA #1453
OTE</td></tr><tr><td> Weatherford,
Texas</td><td align = right> MONTERREY N.L. MEX
64000</td></tr><tr><td> TEL: +1 (817)
677-1276</td><td align = right> TEL/FAX: +52 (818)
340-0440</td></tr><tr><td> FAX:+1 (817)
677-1278</td><td align = right> MOBILE: +52 (818)
064-0783</td></tr><tr><td> <a
href=http://www.mixertrucks.net/>WWW.MIXERTRUCKS.NET</a></td><td
align = right> <a
href=mailto:[email protected]>[email protected]</a></td></tr><tr><td
colspan=2><br></td></tr><tr><td
colspan=2> <center><font size=4>WE FINANCE NEW AND
USED
Click to expand...
EQUIPMENT!!! said:
Response.Write("<br><Br><Br><br><br><br><br>")

end if
oDR.close
oConn.close
End Sub

Function readHtmlPage(url As String) As String
Dim objResponse As WebResponse
Dim objRequest As WebRequest
Dim result As String
objRequest = System.Net.HttpWebRequest.Create(url)
objResponse = objRequest.GetResponse()
Dim sr As New StreamReader(objResponse.GetResponseStream())
result = sr.ReadToEnd()

'clean up StreamReader
sr.Close()

return result
End Function

</script>
<html>
<head>
</head>
<body>
<map name="Map">
<area shape="RECT" coords="16,156,132,194"
href="http://www.mixertrucks.net/Languages/English/english.html"
/>
<area shape="RECT" coords="26,315,148,343"
href="http://www.mixertrucks.net/Languages/English/contactus/contactus.html"
/>
<area shape="RECT" coords="29,275,131,295"
href="http://www.mixertrucks.net/Languages/English/aboutus/aboutus.html"
/>
<area shape="RECT" coords="15,8,134,61"
href="http://www.mixertrucks.net/" />
<area shape="RECT" coords="22,210,149,252"
href="http://www25.brinkster.com/mixertrucks/db/inventory.aspx"
/></map>
</body>
</html>
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

ASP.NET connection file problem 2
How to display sorted recordset? 2
Webpage does not load correctly 2
SO WHY BOTHER? 2
Page break in excel? 1
Outlook 2003 with sp1, Word as Editor hangs on reply/forward 0
Screen Scraping With VB.NET 1
Rollover Links are not underlined. 3

Top