problem with aspnet_wp.exe

Hi! Just deployed an asp.net application.But we are
experiencing slowdown due to aspnet+wp.exe eating up more
than 50% cpu. What should I do?! Please help! Thanks!
Is the 50% constant? Or does it just occasionally spike to 50%?
What operations are going on when it hits 50%?
Have you checked .NET code to ensure that you don't have problems there?
How are you accessing SQL Server? How much data are you pulling back from
SQL Server?
etc. etc.
Rick Sawtell
MCT, MCSD, MCDBA
"miranda" <anonymous@.discussions.microsoft.com> wrote in message
news:a3e001c4878b$a2530450$a501280a@.phx.gbl...
> Hi! Just deployed an asp.net application.But we are
> experiencing slowdown due to aspnet+wp.exe eating up more
> than 50% cpu. What should I do?! Please help! Thanks!

problem with aspnet_wp.exe

Hi! Just deployed an asp.net application.But we are
experiencing slowdown due to aspnet+wp.exe eating up more
than 50% cpu. What should I do?! Please help! Thanks!Is the 50% constant? Or does it just occasionally spike to 50%?
What operations are going on when it hits 50%?
Have you checked .NET code to ensure that you don't have problems there?
How are you accessing SQL Server? How much data are you pulling back from
SQL Server?
etc. etc.
Rick Sawtell
MCT, MCSD, MCDBA
"miranda" <anonymous@.discussions.microsoft.com> wrote in message
news:a3e001c4878b$a2530450$a501280a@.phx.gbl...
> Hi! Just deployed an asp.net application.But we are
> experiencing slowdown due to aspnet+wp.exe eating up more
> than 50% cpu. What should I do?! Please help! Thanks!

problem with aspnet_wp.exe

Hi! Just deployed an asp.net application.But we are
experiencing slowdown due to aspnet+wp.exe eating up more
than 50% cpu. What should I do?! Please help! Thanks!Is the 50% constant? Or does it just occasionally spike to 50%?
What operations are going on when it hits 50%?
Have you checked .NET code to ensure that you don't have problems there?
How are you accessing SQL Server? How much data are you pulling back from
SQL Server?
etc. etc.
Rick Sawtell
MCT, MCSD, MCDBA
"miranda" <anonymous@.discussions.microsoft.com> wrote in message
news:a3e001c4878b$a2530450$a501280a@.phx.gbl...
> Hi! Just deployed an asp.net application.But we are
> experiencing slowdown due to aspnet+wp.exe eating up more
> than 50% cpu. What should I do?! Please help! Thanks!

problem with aspnet_ "Could not find stored procedure"

I have developed an asp.net 2.0 web application that uses sql2000 and with storded procedures.
Everything has been working great untill i yesterday found that someone have put in new stored procedures
in the database. The procedures starts with "dbo.aspnet_" like dbo.aspnet_CheckSchemaVersion.
Because i din't create them and i surtenly not call them from the application, i deleted them all.

Now when i try to use my web application nothing works. The app, somehow calls the procedure and becuase they are deleted
an error message is thrown like: Could not find stored procedure 'dbo.aspnet_CheckSchemaVersion'.

But the strange thing is that the problem only accure when i publish the site on the web server.
if i would publish it to a local folder on my desktop ore just run in debug mode against the database there are no problems.

I don't want to use the aspnet procedures that probebly comes from aspnet_regsql.exe and that im not calling from the code but reacts somehow,
I just want it to tun as it was designed to do.
And if i need them, can someone explain why?

please help :)

Dude, the "aspnet_" stuff is from Microsoft... it's the Membership provider. To get it back run "aspnet_regsql' in c:\windows\microsoft.net\framework\v2.blah (or wherever your windows files are).

|||

Yo Dude :) I did what you said and of course it worked. But i don't know why aspnet_regsql.exe is suddenly needed and all of those procedures that comes along. It worked without it before.

thx :)

sql

Problem with asp page and ODBC on Windows 2003 SR 64 Bits

I have an Application developed on ASP, I got a few new servers 64bits, I installed microsoft WIN 2003 SR.
When I get in into the web site I receive this errors:

Microsoft OLE DB Provider for ODBC Driverserror '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/ConnectToDatabase.asp, line 17

I made some obvios checks, I checked that the ODBC really exists and we move the IIS 6.0 to run in 32bits mode as I found in some page.

Thanks you.

Ahmed

Hi,

could you please post your connection string right in here ? We can′t see if you use a DSN or a DSNless connection.

HTH, Jens Suessmeyer.

http://www.sqlserver2005.de
|||

You are likely using an ODBC driver that is not available for 64bits. See http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=20574&SiteID=1 for the relevnat discusion.

Can you connect to the odbc driver in question using ODBC driver manager. Start->Run->ODBCAD32.exe. Using odbc driver manager create a new dsn and test the connection.

Problem with asp page and ODBC on Windows 2003 SR 64 Bits

I have an Application developed on ASP, I got a few new servers 64bits, I installed microsoft WIN 2003 SR.
When I get in into the web site I receive this errors:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/ConnectToDatabase.asp, line 17

I made some obvios checks, I checked that the ODBC really exists and we move the IIS 6.0 to run in 32bits mode as I found in some page.

Thanks you.

Ahmed

Hi,

could you please post your connection string right in here ? We can′t see if you use a DSN or a DSNless connection.

HTH, Jens Suessmeyer.

http://www.sqlserver2005.de|||

You are likely using an ODBC driver that is not available for 64bits. See http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=20574&SiteID=1 for the relevnat discusion.

Can you connect to the odbc driver in question using ODBC driver manager. Start->Run->ODBCAD32.exe. Using odbc driver manager create a new dsn and test the connection.

Problem with ASP and SQL ODBC connection

Hi everyone, I need your expert advice. I have a w2k AD service with mssql on
it. and I setup another w2k server with IIS on it as webserver. my website
works on NT servers, but when I moved the website to the w2k server, it
doesn't work. It saids:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'NT
AUTHORITY\ANONYMOUS LOGON'.
/media/IIS_Gen_3.0_Recordset.js, line 366
My problem not stops here, as my website created by a program, therefore, I
don't know how to change the open connection statement. so therefore, I can
only find a way to overcome this user account login problem.
=?Utf-8?B?UGF0cmljayBUYW5n?= <PatrickTang@.discussions.microsoft.com>
wrote in news:E04EF7D8-542E-455B-A5C3-D134A92653F2@.microsoft.com:
I'm up against a similar problem, but having checked out KB 247931 I'm
still baffled.
AFAICS, the browser takes the authentication happily, but sql 2k gives me
either a '\' as the failed login or the same as below.
Yet the users are all members of a domain group that has access set
up....

> Hi everyone, I need your expert advice. I have a w2k AD service with
> mssql on it. and I setup another w2k server with IIS on it as
> webserver. my website works on NT servers, but when I moved the
> website to the w2k server, it doesn't work. It saids:
> Error Type:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
> [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user
> 'NT AUTHORITY\ANONYMOUS LOGON'.
> /media/IIS_Gen_3.0_Recordset.js, line 366
> My problem not stops here, as my website created by a program,
> therefore, I don't know how to change the open connection statement.
> so therefore, I can only find a way to overcome this user account
> login problem.
>
sql

Problem with ASP & SQL ODBC connection

Hi everyone, I need your expert advice. I have a w2k AD service with mssql on
it. and I setup another w2k server with IIS on it as webserver. my website
works on NT servers, but when I moved the website to the w2k server, it
doesn't work. It saids:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'NT
AUTHORITY\ANONYMOUS LOGON'.
/media/IIS_Gen_3.0_Recordset.js, line 366
My problem not stops here, as my website created by a program, therefore, I
don't know how to change the open connection statement. so therefore, I can
only find a way to overcome this user account login problem.
Hi
Since it is and IIS site, the local NT IIS account, IUSR_<machinename>, will
be the user coming through on the connection. You need to give it rights in
you DB.
The best way to do this is to create a domain account for IIS, give it
rights in your DB and then re-configure IIS to use that for anonymous access.
There are security implications, so make sure that you give the user the
least rights at domain and DB level.
Regards
Mike
"Patrick Tang" wrote:

> Hi everyone, I need your expert advice. I have a w2k AD service with mssql on
> it. and I setup another w2k server with IIS on it as webserver. my website
> works on NT servers, but when I moved the website to the w2k server, it
> doesn't work. It saids:
> Error Type:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
> [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'NT
> AUTHORITY\ANONYMOUS LOGON'.
> /media/IIS_Gen_3.0_Recordset.js, line 366
> My problem not stops here, as my website created by a program, therefore, I
> don't know how to change the open connection statement. so therefore, I can
> only find a way to overcome this user account login problem.
>

Problem with ASP - ODBC - SQL Server after moving to Windows 2003 Server

Hello,
We are setting up a backup server for one of our Web sites, and the current
machine is running Win 2K Server, the new one Win 2003 Server. Otherwise
everything else is the same.
Most everthing works fine, except for one ASP template, which is opening a
recordset with this line:
set RS = Server.CreateObject("ADODB.Recordset") rs.Open "DealerInfo",
Conn,adOpenKeyset,adLockOptimistic,adcmdtable
On the 2003 server it gives an error:
Microsoft OLE DB Provider for ODBC Drivers error '800401f3'
[Microsoft][ODBC SQL Server Driver]Cursor type changed
I have searched for information about thids error, but not found any so far.
Any help would be appreciated.
Ragnar
I have determined that this is not really an error message, but an
informational message. It seems pretty clear that the real error lies
somewhere else, so I will have to come up with a way to add some debug
statements without stopping the code.
Ragnar
"Ragnar Midtskogen" <ragnar_ng@.newsgroups.com> wrote in message
news:%23THcMdmpEHA.2032@.TK2MSFTNGP10.phx.gbl...
> Hello,
> We are setting up a backup server for one of our Web sites, and the
> current machine is running Win 2K Server, the new one Win 2003 Server.
> Otherwise everything else is the same.
> Most everthing works fine, except for one ASP template, which is opening a
> recordset with this line:
> set RS = Server.CreateObject("ADODB.Recordset") rs.Open "DealerInfo",
> Conn,adOpenKeyset,adLockOptimistic,adcmdtable
> On the 2003 server it gives an error:
> Microsoft OLE DB Provider for ODBC Drivers error '800401f3'
> [Microsoft][ODBC SQL Server Driver]Cursor type changed
> I have searched for information about thids error, but not found any so
> far.
> Any help would be appreciated.
> Ragnar
>

Problem with ASP

Hello,
I know this group doesn't pertain to Active Server Script, but I didn't see
a group for that and though the SQL and Access people would be better suited
to help me, since many have exerience with ASP scripting.
I have Active Server pages which write data to an Access database. On a
test page I set the DSN to an SQL server table that I created. I would
assume it should run without a problem, but the page hangs up and I get a
message:
The page cannot be displayed
All I can think is that there is something about the SQL Database which will
require some rewriting. For example in the past when I modified a database
to read SQL Server tables I had to add the property, dbSeeChanges to the
OpenRecordSet method.
I am wondering if there is something similar that I am unaware of which is
making the page hang. I suspect the problem to be in the query insert query
named, "q".
I put the whole procedure below.
Thanks for any help and God Bless,
Mark A. Sam
<%
dim company
dim coid
dim contact
dim address1
dim address2
dim city
dim state
dim zip
dim country
dim phone
dim email
dim key
dim displayemail
dim displayphone
dim trucker
dim shipper
dim truckbroker
dim foodbroker
dim manufacturer
dim merchandiser
dim distributor
dim ltlcarrier
dim othertype
dim trknounits
dim trkstates
dim trkreefer
dim trkvan
dim trkflatbed
dim trkdumptruck
dim trkother
dim shploads
dim shpstates
dim shpreefer
dim shpvan
dim shpflatbed
dim shpdumptruck
dim shpother
dim comments
Dim howsitefound
Function prepare(str)
prepare = Replace(Replace(str,"'", "`"),Chr(34), """)
End Function
Sub getfields()
alert('debug');
company = prepare(Request.Form("company"))
contact = prepare(Request.Form("contact"))
address1 = prepare(Request.Form("address1"))
address2 = prepare(Request.Form("address2"))
city = prepare(Request.Form("city"))
state = prepare(Request.Form("state"))
zip = Request.Form("zip")
country = prepare(Request.Form("country"))
phone = Request.Form("phone")
email = Request.Form("email")
key = prepare(Request.Form("key"))
displayemail = Request.Form("displayemail")
displayphone = Request.Form("displayphone")
if Request.Form("trucker") = "" then
trucker = FALSE
else
trucker = TRUE
end if
if Request.Form("trucker") = "" then
trucker = FALSE
else
trucker = TRUE
end if
if Request.Form("shipper") = "" then
shipper = FALSE
else
shipper = TRUE
end if
if Request.Form("truckbroker") = "" then
truckbroker = FALSE
else
truckbroker = TRUE
end if
if Request.Form("foodbroker") = "" then
foodbroker = FALSE
else
foodbroker = TRUE
end if
if Request.Form("manufacturer") = "" then
manufacturer = FALSE
else
manufacturer = TRUE
end if
if Request.Form("merchandiser") = "" then
merchandiser = FALSE
else
merchandiser = TRUE
end if
if Request.Form("distributor") = "" then
distributor = FALSE
else
distributor = TRUE
end if
if Request.Form("ltlcarrier") = "" then
ltlcarrier = FALSE
else
ltlcarrier = TRUE
end if
othertype = prepare(Request.Form("othertype"))
trknounits = Request.Form("trknounits")
if trknounits = "" then trknounits = "0"
trkstates = Request.Form("trkstates")
if trkstates = "" then trkstates = "0"
if Request.Form("trkreefer") = "" then
trkreefer = FALSE
else
trkreefer = TRUE
end if
if Request.Form("trkvan") = "" then
trkvan = FALSE
else
trkvan = TRUE
end if
if Request.Form("trkflatbed") = "" then
trkflatbed = FALSE
else
trkflatbed = TRUE
end if
if Request.Form("trkdumptruck") = "" then
trkdumptruck = FALSE
else
trkdumptruck = TRUE
end if
trkother = Request.Form("trkother")
shploads = Request.Form("shploads")
if shploads = "" then shploads = "0"
shpstates = Request.Form("shpstates")
if shpstates = "" then shpstates = "0"
if Request.Form("shpreefer") = "" then
shpreefer = FALSE
else
shpreefer = TRUE
end if
if Request.Form("shpvan") = "" then
shpvan = FALSE
else
shpvan = TRUE
end if
if Request.Form("shpflatbed") = "" then
shpflatbed = FALSE
else
shpflatbed = TRUE
end if
if Request.Form("shpdumptruck") = "" then
shpdumptruck = FALSE
else
shpdumptruck = TRUE
end if
howsitefound = prepare(Request.Form("howsitefound"))
shpother = prepare(Request.Form("shpother"))
comments = prepare(Request.Form("comments"))
End Sub
if Request("mode") = "NEW" then
getfields()
Set rs = Server.CreateObject("ADODB.RecordSet")
q = "INSERT INTO CompanyInfo (Company,Contact,Address1,Address2," &_
" City,State,Zip,Country,Phone,Email,Key,D
isplayEmail,DisplayPhone," &_
" Trucker,Shipper,TruckBroker,FoodBroker,M
anufacturer,Merchandiser," &_
" Distributor,LTLCarrier,OtherType,trkNoUn
its,trkStates,trkReefer,trkVan,"
&_
" trkFlatBed,trkDumpTruck,trkOther,shpLoad
s," &_
" shpStates,shpReefer,shpVan,shpFlatbed,sh
pDumpTruck,shpOther,Comments,Active
,howsitefound)" &_
" VALUES ('" & company & "','" & contact & "','" & address1 & "','" &
address2 &_
"','" & city & "','" & state & "','" & zip & "','" & country & "','" &
phone &_
"','" & email & "','" & key & "','" & displayemail & "','" & displayphone
&_
"'," & trucker & "," & shipper & "," & truckbroker & "," & foodbroker &
"," &_
manufacturer & "," & merchandiser & "," & distributor & "," & ltlcarrier
&_
",'" & othertype & "'," & trknounits & "," & trkstates & "," & trkreefer
&_
"," & trkvan & "," & trkflatbed & "," & trkdumptruck & ",'" & trkother &
"'," &_
shploads & "," & shpstates & "," & shpreefer & "," & shpvan & "," &
shpflatbed &_
"," & shpdumptruck & ",'" & shpother & "','" & comments & "',1,'" &
howsitefound & "')"
rs.Open q, "DSN=TruckLoadsDevSQL;"
q = "SELECT Max(CompanyID) AS coid FROM CompanyInfo"
rs.Open q, "DSN=TruckLoadsDevSQL;"
coid = rs("coid").value
Response.Cookies("coid") = coid
Response.Cookies("key") = key
d = Date
Response.Cookies("coid").expires = DateAdd("yyyy", 2, d)
Response.Cookies("key").expires = DateAdd("yyyy", 2, d)
mess = "Your Record has been added to the database. Your Company ID number
is " &_
coid & ". Your password is " & key & ". Please write them down. " &_
"You may edit your record now, if you wish"
rs.Close
Set rs = Nothing
' if UCase(Request.ServerVariables("SERVER_NAME")) <> "ANGELA" then
' Set JMail = Server.CreateObject("JMail.SMTPMail")
' JMail.ServerAddress = "mail.truckloads.net:25"
' JMail.Sender = "msam@.plan-it-earth.net"
' JMail.Subject = "Your Company Registration With www.truckloads.net"
' JMail.AddRecipient email
' Body = "Dear " & contact & VbCrLf & VbCrLf &_
' "Thank you for registering your company with www.truckloads.net! " &
VbCrLf & VbCrLf &_
' "Your Company ID is " & coid & VbCrLf &_
' "Your Password is " & key & VbCrLf & VbCrLf &_
' "These have been stored in a cookie on your computer for ease of use.
However, " &_
' "if the cookie is deleted, or for some other reason you need to look up
your " &_
' "Company ID and Password, please keep this email for future reference. "
& VbCrLf & VbCrLf &_
' "Thanks again, " & VbCrLf & VbCrLf &_
' "Mark A. Sam, Plan-It-Earth Web Management Services" & VbCrLf &_
' "msam@.plan-it-earth.net"
'
' JMail.Body = Body
' JMail.Priority = 3
'
' JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'' JMail.Execute
'
' JMail.Subject = "New Company Registration With www.truckloads.net"
' JMail.AddRecipient "msam@.plan-it-earth.net"
' JMail.AddRecipient "takempis@.roanoke.infi.net"
' Body = "Dear Mark,"& VbCrLf & VbCrLf &_
' "The following company has registered with www.truckloads.net:" & VbCrLf
& VbCrLf &_
' "Company: " & company & VbCrLf &_
' "Contact Name: " & contact & VbCrLf &_
' "Address1: " & address1 & VbCrLf &_
' "Address2: " & address2 & VbCrLf &_
' "City: " & city & VbCrLf &_
' "State: " & state & VbCrLf &_
' "Zip: " & zip & VbCrLf &_
' "Country: " & country & VbCrLf &_
' "Phone: " & phone & VbCrLf &_
' "Email: " & email & VbCrLf &_
' "Company ID:" & coid & VbCrLf &_
' "Password:" & key
' JMail.Body = Body
' JMail.Priority = 3
'
' JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'' JMail.Execute
' Set JMail = Nothing
' end if
elseif Request.Form("mode") = "DELETE" then
Set rs = Server.CreateObject("ADODB.RecordSet")
q = "DELETE FROM CompanyInfo WHERE CompanyID =" & Request.Form("coid")
rs.Open q, "DSN=TruckLoadsDevSQL;"
Session("mess") = "Your Record has been deleted. You may enter another if
you wish."
Response.Cookies("coid") = ""
Response.Cookies("key") = ""
Response.Redirect "companyinfo.asp"
elseif Request.Form("mode") = "UPDATE" then
getfields()
coid = Request.Form("coid")
Set rs = Server.CreateObject("ADODB.RecordSet")
q = "UPDATE CompanyInfo SET Company='" & company & "',Contact = '" &
contact &_
"', Address1 = '" & address1 & "', Address2 = '" & address2 &_
"', City ='" & city & "', State = '" & state & "', Zip = '" & zip &_
"',Country = '" & country & "', Phone = '" & phone & "', Email = '" &_
email & "', Key = '" & key & "', DisplayEmail = '" & displayemail &_
"', DisplayPhone = '" & displayphone & "', Trucker = " & trucker &_
", Shipper = " & shipper & ", TruckBroker = " & truckbroker & ",
FoodBroker = " &_
foodbroker & ", Manufacturer = " & manufacturer & ", Merchandiser = " &_
merchandiser & ", Distributor = " & distributor & ", LTLCarrier = " &_
ltlcarrier & ", OtherType = '" & othertype & "', trkNoUnits = " &
trknounits &_
", trkStates = " & trkstates & ", trkReefer = " & trkreefer & ", trkVan =
" &_
trkvan & ", trkFlatbed = " & trkflatbed & ",trkDumpTruck = " &
trkdumptruck &_
",trkOther = '" & trkother & "', shpLoads = " & shploads & ", shpStates =
" &_
shpstates & ", shpReefer = " & shpreefer & ", shpVan = " & shpvan &_
", shpFlatbed = " & shpflatbed & ", shpDumpTruck = " & shpdumptruck &_
", shpOther = '" & shpother & "', Comments = '" & comments & "' WHERE
CompanyID = " &_
Request.Form("coid")
rs.Open q, "DSN=TruckLoadsDevSQL;"
Response.Cookies("coid") = coid
Response.Cookies("key") = key
d = Date
Response.Cookies("coid").expires = DateAdd("yyyy", 2, d)
Response.Cookies("key").expires = DateAdd("yyyy", 2, d)
mess = "Your Record has been updated."
Set rs = Nothing
elseif Request("mode") = "KEY" then
coid = Request("coid")
key = Request("key")
Set rs = Server.CreateObject("ADODB.RecordSet")
q = "SELECT * FROM CompanyInfo WHERE CompanyID = " & coid &_
" AND Key LIKE '" & key & "'"
rs.Open q, "DSN=TruckLoadsDevSQL;"
if rs.EOF then
Session("mess") = "Sorry. Your Company ID and/or password were not found.
Try again?"
Response.Redirect "companykey.asp"
end if
company = prepare(rs("Company").value)
contact = prepare(rs("Contact").value)
address1 = prepare(rs("Address1").value)
address2 = prepare(rs("Address2").value)
city = prepare(rs("City").value)
state = prepare(rs("State").value)
zip = rs("Zip").value
country = prepare(rs("Country").value)
phone = rs("Phone").value
email = rs("Email").value
key = prepare(rs("Key").value)
displayemail = rs("DisplayEmail").value
displayphone = rs("DisplayPhone").value
trucker = rs("Trucker").value
shipper = rs("Shipper").value
truckbroker = rs("TruckBroker").value
foodbroker = rs("FoodBroker").value
manufacturer = rs("Manufacturer").value
merchandiser = rs("Merchandiser").value
distributor = rs("Distributor").value
ltlcarrier = rs("LTLCarrier").value
othertype = prepare(rs("OtherType").value)
trknounits = rs("trkNoUnits").value
if trknounits = "" then trknounits = "0"
trkstates = rs("trkStates").value
if trkstates = "" then trkstates = "0"
trkreefer = rs("trkReefer").value
trkvan = rs("trkVan").value
trkflatbed = rs("trkFlatBed").value
trkdumptruck = rs("trkDumpTruck").value
trkother = rs("trkOther").value
shploads = rs("shpLoads").value
if shploads = "" then shploads = "0"
shpstates = rs("shpStates").value
if shpstates = "" then shpstates = "0"
shpreefer = rs("shpReefer").value
shpvan = rs("shpVan").value
shpflatbed = rs("shpFlatBed").value
shpdumptruck = rs("shpDumpTruck").value
shpother = prepare(rs("shpOther").value)
comments = prepare(rs("Comments").value)
Response.Cookies("coid") = coid
Response.Cookies("key") = key
d = Date
Response.Cookies("coid").expires = DateAdd("yyyy", 2, d)
Response.Cookies("key").expires = DateAdd("yyyy", 2, d)
end if
%>
<html>
<head>
<meta NAME="keywords"
CONTENT="Truckloads. NET,Loads,Load,Loading,Frieght,Freight,T
ruckers,Trucker,
Trucking,Shipper,Shippers,Shipping,Reefe
rs,Reefer,Vans,Dry Vans,Van,Dry
Van,Haul,Hauling,Backhaul,Backhauls,LTL,
TruckStop,TruckStops,Cash
Advance,Cach Advances,Rig,Rigs,Manufacturing,UPS,Fede
ral
Express,Airborne,Agriculture,Produce,Cab
bage,Tomatoes,Fruit,Vegetables,Apple
s,Peaches,Newsprint,Commodities,Potatoes
,Nursery Stock">
<meta NAME="description"
CONTENT="List and Find Trucks and loads. This service is for any person or
company that utilizes trucks for hauling merchandise. This is a listing
service open to Truckers, Shippers, and Brokers. Registration is required
for posting to the site. Searches are open to anyone">
<meta NAME="Author"
CONTENT="Mark A. Sam 716-679-7607 msam@.plan-it-earth.net Plan-It-Earth Web
Management Services Box 110 Dunkirk, NY 14048 716-679-7607">
<title>Edit Your Company Information</title>
<meta name="Microsoft Border" content="tb">
</head>
<body leftmargin="0" topmargin="0" background="../images/trucksbg.gif"
bgcolor="#FFFFFF"
link="#000080" vlink="#800080" alink="#000080">
<p><script language="JavaScript"><!--
<%if mess <> "" then%>
alert("<%=mess%>");
<%end if%>
// --></script> <script LANGUAGE="JavaScript">
<!--
function delconfirm(theForm) {
if(confirm("Are you sure you want to delete your record?")) return (true);
return(false);
}
// -->
</script> <u><font
size="4"><strong><script LANGUAGE="JavaScript">
<!--
function Validate(theForm)
{
if (theForm.company.value == "")
{
alert("Please enter a value for the \"Company Name\" field.");
theForm.company.focus();
return (false);
}
if (theForm.company.value.length > 50)
{
alert("Please enter at most 50 characters in the \"Company Name\"
field.");
theForm.company.focus();
return (false);
}
if (theForm.contact.value == "")
{
alert("Please enter a value for the \"Contact Name\" field.");
theForm.contact.focus();
return (false);
}
if (theForm.contact.value.length > 50)
{
alert("Please enter at most 50 characters in the \"Contact Name\"
field.");
theForm.contact.focus();
return (false);
}
if (theForm.address1.value == "")
{
alert("Please enter a value for the \"Address Line 1\" field.");
theForm.address1.focus();
return (false);
}
if (theForm.address1.value.length > 50)
{
alert("Please enter at most 50 characters in the \"Address Line 1\"
field.");
theForm.address1.focus();
return (false);
}
if (theForm.city.value == "")
{
alert("Please enter a value for the \"City\" field.");
theForm.city.focus();
return (false);
}
if (theForm.city.value.length > 50)
{
alert("Please enter at most 50 characters in the \"City\" field.");
theForm.city.focus();
return (false);
}
if (theForm.state.value == "")
{
alert("Please enter a value for the \"State\" field.");
theForm.state.focus();
return (false);
}
if (theForm.state.value.length > 50)
{
alert("Please enter at most 50 characters in the \"State\" field.");
theForm.state.focus();
return (false);
}
if (theForm.zip.value == "")
{
alert("Please enter a value for the \"Postal Code\" field.");
theForm.zip.focus();
return (false);
}
if (theForm.zip.value.length > 50)
{
alert("Please enter at most 50 characters in the \"Postal Code\"
field.");
theForm.zip.focus();
return (false);
}
if (theForm.country.value == "")
{
alert("Please enter a value for the \"Country\" field.");
theForm.country.focus();
return (false);
}
if (theForm.country.value.length > 50)
{
alert("Please enter at most 50 characters in the \"Country\" field.");
theForm.country.focus();
return (false);
}
if (theForm.phone.value == "")
{
alert("Please enter a value for the \"Phone\" field.");
theForm.phone.focus();
return (false);
}
if (theForm.phone.value.length > 50)
{
alert("Please enter at most 50 characters in the \"Phone\" field.");
theForm.phone.focus();
return (false);
}
if (theForm.email.value == "")
{
alert("Please enter a value for the \"Email Address\" field.");
theForm.email.focus();
return (false);
}
if (theForm.email.value.length > 50)
{
alert("Please enter at most 50 characters in the \"Email Address\"
field.");
theForm.email.focus();
return (false);
}
if (theForm.key.value == "")
{
alert("Please enter a value for the \"Password\" field.");
theForm.key.focus();
return (false);
}
if (theForm.key.value.length < 6)
{
alert("Please enter at least 6 characters in the \"Password\" field.");
theForm.key.focus();
return (false);
}
if (theForm.key.value.length > 12)
{
alert("Please enter at most 12 characters in the \"Password\" field.");
theForm.key.focus();
return (false);
}
var checkOK = "0123456789-";
var checkStr = theForm.trknounits.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert("Please enter only digit characters in the \"Trucker - Number of
Units that you run\" field.");
theForm.trknounits.focus();
return (false);
}
var checkOK = "0123456789-";
var checkStr = theForm.trkstates.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert("Please enter only digit characters in the \"Trucker - Number of
States that you cover\" field.");
theForm.trkstates.focus();
return (false);
}
var checkOK = "0123456789-";
var checkStr = theForm.shploads.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert("Please enter only digit characters in the \"Shipper- Number of
Loads that you ship per w\" field.");
theForm.shploads.focus();
return (false);
}
var checkOK = "0123456789-";
var checkStr = theForm.shpstates.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert("Please enter only digit characters in the \"Shipper- Number of
States that you ship to\" field.");
theForm.shpstates.focus();
return (false);
}
var done = 0;
if(theForm.trucker.checked == (true)) done = 1;
if(theForm.shipper.checked == (true)) done = 1;
if(theForm.truckbroker.checked == (true)) done = 1;
if(theForm.foodbroker.checked == (true)) done = 1;
if(theForm.manufacturer.checked == (true)) done = 1;
if(theForm.merchandiser.checked == (true)) done = 1;
if(theForm.distributor.checked == (true)) done = 1;
if(theForm.ltlcarrier.checked == (true)) done = 1;
if(theForm.othertype.value != "") done = 1;
if(done == 0) {
alert("You must choose at least one Company Type.");
theForm.trucker.focus();
return (false);
}
return (true);
}
// -->
</script> </strong></font></u></p>
<table width="653" cellpadding="10" align="LEFT" valign="TOP">
<tr>
<!-- Button Column -->
<td width="150" align="LEFT" valign="TOP"><a
href="../asp/searchloads.asp">
<img
src="../ImagesButtons/searchloads.jpg" alt border="0"></a><a
href="../asp/searchtrucks.asp"><img
src="../ImagesButtons/searchtrucks.jpg" alt border="0"></a><a
href="../information/information.asp"><img
src="../ImagesButtons/information.jpg" alt border="0"></a> </td>
<!-- Content column -->
<td align="LEFT" valign="TOP" width="457"><table border="0"
width="100%">
<tr>
<td width="100%"><p align="center"><font size="4"><strong>Edit Your
Company Information</strong></font></p>
<table border="0" width="100%">
<tr>
<td align="left" valign="top"><a
href="truckinfo.asp?mode=EDIT&coid=<%=coid%>&key=<%=key%>"><img
src="../images/EnterTrucks.gif" alt="Enter Your Trucks"
align="left" border="0"></a></td>
<td align="left" valign="top"><a
href="loadinfo.asp?mode=EDIT&coid=<%=coid%>&key=<%=key%>"><img
src="../images/EnterLoads.gif" alt="Enter Your Load"
align="left" border="0"></a></td>
<td align="left" valign="top"><a
href="listing.asp?company=<%=Server.URLEncode(company)%>&coid=<%=coid%>"
><strong>Edit/
Delete Trucks or Loads</strong></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><b><span lang="en-us"><font face="Arial">
<font color="#FF0000">We would like you to take a survey for a new
service to help you get more business.</font><br>
<a target="_blank"
href="http://www.Plan-It-Earth.Net/TLOSurvey/Default.htm">
Click Here</a></font></span></b></td>
</tr>
</table>
<p align="left"><strong><font color="#800000">Please check the
information you submitted
and fix any errors!</font><br>
Fields with a <font size="5" color="#FF0000">*</font> are required<span
lang="en-us">
<font color="#800000"><span style="background-color:
#FFFF00">$$$$</span></font></span></strong></p>
<form ACTION="companyedit.asp" METHOD="POST" ONSUBMIT="return
Validate(this)">
<input type="hidden" name="coid" value="<%=coid%>"><input
type="hidden" name="mode"
value="UPDATE"><table border="0" width="100%">
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>Company
Name</strong></td>
<td width="70%" valign="top"><strong><input VALUE="<%=company%>"
SIZE="35" ID="fp3"
NAME="company" maxlength="50"> <br>
<font size="1" face="Arial">( 0r Your Name )</font></strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>Contact
Name</strong></td>
<td width="70%" valign="top"><strong><input VALUE="<%=contact%>"
SIZE="35" ID="fp3"
NAME="contact" maxlength="50"> </strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>Address
Line 1</strong></td>
<td width="70%" valign="top"><strong><input VALUE="<%=address1%>"
SIZE="35" ID="fp3"
NAME="address1" maxlength="50"> </strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong>Address Line
2</strong></td>
<td width="70%" valign="top"><strong><input VALUE="<%=address2%>"
SIZE="35" ID="fp3"
NAME="address2" maxlength="50"> </strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>City</strong></td>
<td width="70%" valign="top"><strong><input VALUE="<%=city%>"
SIZE="35" ID="fp3"
NAME="city" maxlength="50"> </strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>State</strong></td>
<td width="70%" valign="top"><strong><input VALUE="<%=state%>"
SIZE="35" ID="fp3"
NAME="state" maxlength="50"> </strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>Postal
Code</strong></td>
<td width="70%" valign="top"><strong><input VALUE="<%=zip%>"
SIZE="35" ID="fp3" NAME="zip"
maxlength="50"> </strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>Country</strong></td>
<td width="70%" valign="top"><strong><input VALUE="USA" SIZE="35"
ID="fp3" NAME="country"
maxlength="50"> </strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>Phone</strong></td>
<td width="70%" valign="top"><strong><input VALUE="<%=phone%>"
SIZE="35" ID="fp3"
NAME="phone" maxlength="50"> </strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>Email
Address</strong></td>
<td width="70%" valign="top"><strong><input VALUE="<%=email%>"
SIZE="35" ID="fp3"
NAME="email" maxlength="50"> </strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>Select
a Password</strong></td>
<td width="70%" valign="top"><strong><font color="#000000"><input
VALUE="<%=key%>"
SIZE="12" ID="fp10" NAME="key"> <br>
</font><font color="#000000" size="1" face="Arial">( 6 - 12
characters )</font></strong></td>
</tr>
<tr>
<td width="100%" colspan="2" valign="top"><strong>Type a Phone and
Email Address you wish
to be <em>displayed</em> with your transactions.</strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong>Email
Address</strong></td>
<td width="70%" valign="top"><strong><input
VALUE="<%=displayemail%>" SIZE="35" ID="fp3"
NAME="displayemail" maxlength="50"> </strong></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font size="5"
color="#FF0000">*</font>Phone</strong></td>
<td width="70%" valign="top"><strong><input
VALUE="<%=displayphone%>" SIZE="35" ID="fp3"
NAME="displayphone" maxlength="50"> </strong></td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#C0C0C0"
height="1" valign="top"></td>
</tr>
<tr>
<td width="100%" colspan="2" valign="top"><strong><font size="5"
color="#FF0000">*</font>Type
of company (Check <font color="#800000">at least one</font>, and
check all that apply):<br>
</strong><input TYPE="checkbox" <%if trucker = TRUE then%> checked
<%end if%> VALUE="ON"
ID="fp16" NAME="trucker"> <strong><label
for="fp16">Trucker</label><br>
<input TYPE="checkbox" <%if shipper = TRUE then%> checked <%end
if%> VALUE="ON" ID="fp17"
NAME="shipper"> <label for="fp17">Shipper</label><br>
<input TYPE="checkbox" <%if truckbroker = TRUE then%> checked
<%end if%> VALUE="ON"
ID="fp18" NAME="truckbroker"> <label for="fp18">Truck
Broker</label><br>
<input TYPE="checkbox" <%if foodbroker = TRUE then%> checked <%end
if%> VALUE="ON"
ID="fp19" NAME="foodbroker"> <label for="fp19">Food
Broker</label><br>
<input TYPE="checkbox" <%if manufacturer = TRUE then%> checked
<%end if%> VALUE="ON"
ID="fp20" NAME="manufacturer"> <label
for="fp20">Manufacturer</label><br>
<input TYPE="checkbox" <%if merchandiser = TRUE then%> checked
<%end if%> VALUE="ON"
ID="fp21" NAME="merchandiser"> <label
for="fp21">Mechandiser</label><br>
<input TYPE="checkbox" <%if distributor = TRUE then%> checked
<%end if%> VALUE="ON"
ID="fp22" NAME="distributor"> <label
for="fp22">Distributor</label><br>
<input TYPE="checkbox" <%if ltlcarrier = TRUE then%> checked <%end
if%> VALUE="ON"
ID="fp23" NAME="ltlcarrier"> <label for="fp23">LTL
Carrier</label><br>
Other Type <input VALUE="<%=othertype%>" SIZE="50" ID="fp24"
NAME="othertype"
maxlength="50"> </strong></td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#C0C0C0"
height="1" valign="top"></td>
</tr>
<tr>
<td width="100%" colspan="2" valign="top"><strong>Please supply
the following Information
(Not required)</strong></td>
</tr>
<tr>
<td width="30%" valign="top"><font
color="#400000"><strong>Truckers</strong></font></td>
<td width="70%" valign="top"></td>
</tr>
<tr>
<td width="30%" valign="top"><font
color="#0000a0"><strong>Number of units
that you run</strong></font></td>
<td width="70%" valign="top"><input VALUE="<%=trknounits%>"
SIZE="6" NAME="trknounits"> </td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font
color="#0000a0">Number of states
that you cover</font></strong></td>
<td width="70%" valign="top"><input VALUE="<%=trkstates%>"
SIZE="6" NAME="trkstates"> </td>
</tr>
<tr>
<td width="100%" colspan="2" valign="top"><strong><font
color="#0000a0">Type of trucks </font></strong><input
TYPE="checkbox" <%if trkreefer = TRUE then%> checked <%end if%>
VALUE="ON" ID="fp11"
NAME="trkreefer"> <label for="fp11">Reefers</label> <input
TYPE="checkbox"
<%if trkvan = TRUE then%> checked <%end if%> VALUE="ON" ID="fp12"
NAME="trkvan"> <label
for="fp12">Vans</label> <input TYPE="checkbox" <%if trkflatbed =
TRUE then%> checked
<%end if%> VALUE="ON" ID="fp13" NAME="trkflatbed"> <label
for="fp13">Flatbeds</label> <input
TYPE="checkbox" <%if trkdumptruck = TRUE then%> checked <%end if%>
VALUE="ON" ID="fp14"
NAME="trkdumptruck"> <label for="fp14">Dump Trucks</label> <br>
<font color="#0000A0"><strong>Other Type</strong></font>
<strong><input
VALUE="<%=trkother%>" SIZE="50" ID="fp24" NAME="trkother"
maxlength="50"> </strong></td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#C0C0C0" height="1"
valign="top"></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font
color="#400000">Shippers</font></strong></td>
<td width="70%" valign="top"></td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font
color="#0000a0">Number of loads<br>
that you ship per w</font></strong></td>
<td width="70%" valign="top"><input VALUE="<%=shploads%>" SIZE="6"
NAME="shploads"> </td>
</tr>
<tr>
<td width="30%" valign="top"><strong><font
color="#0000a0">Number of states
that you ship to</font></strong></td>
<td width="70%" valign="top"><input VALUE="<%=shpstates%>"
SIZE="6" NAME="shpstates"> </td>
</tr>
<tr>
<td width="100%" colspan="2" valign="top"><strong><font
color="#0000a0">Type of trucks
needed </font></strong><input TYPE="checkbox" <%if shpreefer =
TRUE then%> checked
<%end if%> VALUE="ON" ID="fp11" NAME="shpreefer"> <label
for="fp11">Reefers</label> <input
TYPE="checkbox" <%if shpvan = TRUE then%> checked <%end if%>
VALUE="ON" ID="fp12"
NAME="shpvan"> <label for="fp12">Vans</label> <input
TYPE="checkbox"
<%if shpflatbed = TRUE then%> checked <%end if%> VALUE="ON"
ID="fp13" NAME="shpflatbed"> <label
for="fp13">Flatbeds</label> <input TYPE="checkbox" <%if
shpdumptruck = TRUE then%> checked
<%end if%> VALUE="ON" ID="fp14" NAME="shpdumptruck"> <label
for="fp14">Dump Trucks</label>
<br>
<font color="#0000A0"><strong>Other Type</strong></font>
<strong><input
VALUE="<%=shpother%>" SIZE="50" ID="fp24" NAME="shpother"
maxlength="50"> </strong></td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#C0C0C0"
height="1" valign="top"></td>
</tr>
<tr>
<td width="30%"
valign="top"><strong>Comments</strong></td>
<td width="70%" valign="top"><label for="fp1"><strong><font
color="#ffffff"><textarea
ROWS="6" COLS="35" NAME="comments"><%=comments%>
</textarea></font></strong></label></td>
</tr>
<tr>
<td width="30%" valign="top"><input TYPE="submit" VALUE="Update"
NAME="Submitted"> </td>
<td width="70%" valign="top"><input TYPE="reset" VALUE="Reset"
NAME="B2"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</html>Hi
Without wading through your asp.. you may want to see what is being sent to
your server by using SQL Profiler. You can then cut and paste the commands
into query analyser so you can then check them for errors.
I assume this works against your access database, there are some slight
differences between the SQL symantics for the two.
Books online is a welth of information regarding T-SQL and SQL server. You
can download the latest version at
http://www.microsoft.com/downloads/...&displaylang=en
For ASP this is also a valueable resource http://www.aspfaq.com/categories.as...asp?frame=true
John
"Mark A. Sam" wrote:

> Hello,
> I know this group doesn't pertain to Active Server Script, but I didn't se
e
> a group for that and though the SQL and Access people would be better suit
ed
> to help me, since many have exerience with ASP scripting.
> I have Active Server pages which write data to an Access database. On a
> test page I set the DSN to an SQL server table that I created. I would
> assume it should run without a problem, but the page hangs up and I get a
> message:
> The page cannot be displayed
> All I can think is that there is something about the SQL Database which wi
ll
> require some rewriting. For example in the past when I modified a databas
e
> to read SQL Server tables I had to add the property, dbSeeChanges to the
> OpenRecordSet method.
> I am wondering if there is something similar that I am unaware of which is
> making the page hang. I suspect the problem to be in the query insert que
ry
> named, "q".
> I put the whole procedure below.
> Thanks for any help and God Bless,
> Mark A. Sam
>
> <%
> dim company
> dim coid
> dim contact
> dim address1
> dim address2
> dim city
> dim state
> dim zip
> dim country
> dim phone
> dim email
> dim key
> dim displayemail
> dim displayphone
> dim trucker
> dim shipper
> dim truckbroker
> dim foodbroker
> dim manufacturer
> dim merchandiser
> dim distributor
> dim ltlcarrier
> dim othertype
> dim trknounits
> dim trkstates
> dim trkreefer
> dim trkvan
> dim trkflatbed
> dim trkdumptruck
> dim trkother
> dim shploads
> dim shpstates
> dim shpreefer
> dim shpvan
> dim shpflatbed
> dim shpdumptruck
> dim shpother
> dim comments
> Dim howsitefound
> Function prepare(str)
> prepare = Replace(Replace(str,"'", "`"),Chr(34), """)
> End Function
> Sub getfields()
> alert('debug');
> company = prepare(Request.Form("company"))
> contact = prepare(Request.Form("contact"))
> address1 = prepare(Request.Form("address1"))
> address2 = prepare(Request.Form("address2"))
> city = prepare(Request.Form("city"))
> state = prepare(Request.Form("state"))
> zip = Request.Form("zip")
> country = prepare(Request.Form("country"))
> phone = Request.Form("phone")
> email = Request.Form("email")
> key = prepare(Request.Form("key"))
> displayemail = Request.Form("displayemail")
> displayphone = Request.Form("displayphone")
> if Request.Form("trucker") = "" then
> trucker = FALSE
> else
> trucker = TRUE
> end if
> if Request.Form("trucker") = "" then
> trucker = FALSE
> else
> trucker = TRUE
> end if
> if Request.Form("shipper") = "" then
> shipper = FALSE
> else
> shipper = TRUE
> end if
> if Request.Form("truckbroker") = "" then
> truckbroker = FALSE
> else
> truckbroker = TRUE
> end if
> if Request.Form("foodbroker") = "" then
> foodbroker = FALSE
> else
> foodbroker = TRUE
> end if
> if Request.Form("manufacturer") = "" then
> manufacturer = FALSE
> else
> manufacturer = TRUE
> end if
> if Request.Form("merchandiser") = "" then
> merchandiser = FALSE
> else
> merchandiser = TRUE
> end if
> if Request.Form("distributor") = "" then
> distributor = FALSE
> else
> distributor = TRUE
> end if
> if Request.Form("ltlcarrier") = "" then
> ltlcarrier = FALSE
> else
> ltlcarrier = TRUE
> end if
> othertype = prepare(Request.Form("othertype"))
> trknounits = Request.Form("trknounits")
> if trknounits = "" then trknounits = "0"
> trkstates = Request.Form("trkstates")
> if trkstates = "" then trkstates = "0"
> if Request.Form("trkreefer") = "" then
> trkreefer = FALSE
> else
> trkreefer = TRUE
> end if
> if Request.Form("trkvan") = "" then
> trkvan = FALSE
> else
> trkvan = TRUE
> end if
> if Request.Form("trkflatbed") = "" then
> trkflatbed = FALSE
> else
> trkflatbed = TRUE
> end if
> if Request.Form("trkdumptruck") = "" then
> trkdumptruck = FALSE
> else
> trkdumptruck = TRUE
> end if
> trkother = Request.Form("trkother")
> shploads = Request.Form("shploads")
> if shploads = "" then shploads = "0"
> shpstates = Request.Form("shpstates")
> if shpstates = "" then shpstates = "0"
> if Request.Form("shpreefer") = "" then
> shpreefer = FALSE
> else
> shpreefer = TRUE
> end if
> if Request.Form("shpvan") = "" then
> shpvan = FALSE
> else
> shpvan = TRUE
> end if
> if Request.Form("shpflatbed") = "" then
> shpflatbed = FALSE
> else
> shpflatbed = TRUE
> end if
> if Request.Form("shpdumptruck") = "" then
> shpdumptruck = FALSE
> else
> shpdumptruck = TRUE
> end if
> howsitefound = prepare(Request.Form("howsitefound"))
> shpother = prepare(Request.Form("shpother"))
> comments = prepare(Request.Form("comments"))
> End Sub
> if Request("mode") = "NEW" then
> getfields()
> Set rs = Server.CreateObject("ADODB.RecordSet")
> q = "INSERT INTO CompanyInfo (Company,Contact,Address1,Address2," &_
> " City,State,Zip,Country,Phone,Email,Key,D
isplayEmail,DisplayPhone," &_
> " Trucker,Shipper,TruckBroker,FoodBroker,M
anufacturer,Merchandiser," &_
> " Distributor,LTLCarrier,OtherType,trkNoUn
its,trkStates,trkReefer,trkVan,
"
> &_
> " trkFlatBed,trkDumpTruck,trkOther,shpLoad
s," &_
> " shpStates,shpReefer,shpVan,shpFlatbed,sh
pDumpTruck,shpOther,Comments,Acti
ve
> ,howsitefound)" &_
> " VALUES ('" & company & "','" & contact & "','" & address1 & "','" &
> address2 &_
> "','" & city & "','" & state & "','" & zip & "','" & country & "','" &
> phone &_
> "','" & email & "','" & key & "','" & displayemail & "','" & displayphon
e
> &_
> "'," & trucker & "," & shipper & "," & truckbroker & "," & foodbroker &
> "," &_
> manufacturer & "," & merchandiser & "," & distributor & "," & ltlcarrier
> &_
> ",'" & othertype & "'," & trknounits & "," & trkstates & "," & trkreefer
> &_
> "," & trkvan & "," & trkflatbed & "," & trkdumptruck & ",'" & trkother &
> "'," &_
> shploads & "," & shpstates & "," & shpreefer & "," & shpvan & "," &
> shpflatbed &_
> "," & shpdumptruck & ",'" & shpother & "','" & comments & "',1,'" &
> howsitefound & "')"
> rs.Open q, "DSN=TruckLoadsDevSQL;"
> q = "SELECT Max(CompanyID) AS coid FROM CompanyInfo"
> rs.Open q, "DSN=TruckLoadsDevSQL;"
> coid = rs("coid").value
> Response.Cookies("coid") = coid
> Response.Cookies("key") = key
> d = Date
> Response.Cookies("coid").expires = DateAdd("yyyy", 2, d)
> Response.Cookies("key").expires = DateAdd("yyyy", 2, d)
> mess = "Your Record has been added to the database. Your Company ID numbe
r
> is " &_
> coid & ". Your password is " & key & ". Please write them down. " &_
> "You may edit your record now, if you wish"
> rs.Close
> Set rs = Nothing
> ' if UCase(Request.ServerVariables("SERVER_NAME")) <> "ANGELA" then
> ' Set JMail = Server.CreateObject("JMail.SMTPMail")
> ' JMail.ServerAddress = "mail.truckloads.net:25"
> ' JMail.Sender = "msam@.plan-it-earth.net"
> ' JMail.Subject = "Your Company Registration With www.truckloads.net"
> ' JMail.AddRecipient email
> ' Body = "Dear " & contact & VbCrLf & VbCrLf &_
> ' "Thank you for registering your company with www.truckloads.net! " &
> VbCrLf & VbCrLf &_
> ' "Your Company ID is " & coid & VbCrLf &_
> ' "Your Password is " & key & VbCrLf & VbCrLf &_
> ' "These have been stored in a cookie on your computer for ease of use.
> However, " &_
> ' "if the cookie is deleted, or for some other reason you need to look u
p
> your " &_
> ' "Company ID and Password, please keep this email for future reference.
"
> & VbCrLf & VbCrLf &_
> ' "Thanks again, " & VbCrLf & VbCrLf &_
> ' "Mark A. Sam, Plan-It-Earth Web Management Services" & VbCrLf &_
> ' "msam@.plan-it-earth.net"
> '
> ' JMail.Body = Body
> ' JMail.Priority = 3
> '
> ' JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR"
)
> '' JMail.Execute
> '
> ' JMail.Subject = "New Company Registration With www.truckloads.net"
> ' JMail.AddRecipient "msam@.plan-it-earth.net"
> ' JMail.AddRecipient "takempis@.roanoke.infi.net"
> ' Body = "Dear Mark,"& VbCrLf & VbCrLf &_
> ' "The following company has registered with www.truckloads.net:" & VbCr
Lf
> & VbCrLf &_
> ' "Company: " & company & VbCrLf &_
> ' "Contact Name: " & contact & VbCrLf &_
> ' "Address1: " & address1 & VbCrLf &_
> ' "Address2: " & address2 & VbCrLf &_
> ' "City: " & city & VbCrLf &_
> ' "State: " & state & VbCrLf &_
> ' "Zip: " & zip & VbCrLf &_
> ' "Country: " & country & VbCrLf &_
> ' "Phone: " & phone & VbCrLf &_
> ' "Email: " & email & VbCrLf &_
> ' "Company ID:" & coid & VbCrLf &_
> ' "Password:" & key
> ' JMail.Body = Body
> ' JMail.Priority = 3
> '
> ' JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR"
)
> '' JMail.Execute
> ' Set JMail = Nothing
> ' end if
> elseif Request.Form("mode") = "DELETE" then
> Set rs = Server.CreateObject("ADODB.RecordSet")
> q = "DELETE FROM CompanyInfo WHERE CompanyID =" & Request.Form("coid")
> rs.Open q, "DSN=TruckLoadsDevSQL;"
> Session("mess") = "Your Record has been deleted. You may enter another if
> you wish."
> Response.Cookies("coid") = ""
> Response.Cookies("key") = ""
> Response.Redirect "companyinfo.asp"
> elseif Request.Form("mode") = "UPDATE" then
> getfields()
> coid = Request.Form("coid")
> Set rs = Server.CreateObject("ADODB.RecordSet")
> q = "UPDATE CompanyInfo SET Company='" & company & "',Contact = '" &
> contact &_|||Turn off
"Show friendly HTTP error messages"
within the Internet Options of Internet Explorer.
re-run the page
Does that result in a better (more HELPFUL) error message?
Keith
"Mark A. Sam" <msam@.Plan-It-Earth.Net> wrote in message
news:%23XdranhYFHA.3040@.TK2MSFTNGP14.phx.gbl...
> Hello,
> I know this group doesn't pertain to Active Server Script, but I didn't
> see
> a group for that and though the SQL and Access people would be better
> suited
> to help me, since many have exerience with ASP scripting.
> I have Active Server pages which write data to an Access database. On a
> test page I set the DSN to an SQL server table that I created. I would
> assume it should run without a problem, but the page hangs up and I get a
> message:
> The page cannot be displayed
> All I can think is that there is something about the SQL Database which
> will
> require some rewriting. For example in the past when I modified a
> database
> to read SQL Server tables I had to add the property, dbSeeChanges to the
> OpenRecordSet method.
> I am wondering if there is something similar that I am unaware of which is
> making the page hang. I suspect the problem to be in the query insert
> query
> named, "q".
> I put the whole procedure below.
> Thanks for any help and God Bless,
> Mark A. Sam
>
> <%
> dim company
> dim coid
> dim contact
> dim address1
> dim address2
> dim city
> dim state
> dim zip
> dim country
> dim phone
> dim email
> dim key
> dim displayemail
> dim displayphone
> dim trucker
> dim shipper
> dim truckbroker
> dim foodbroker
> dim manufacturer
> dim merchandiser
> dim distributor
> dim ltlcarrier
> dim othertype
> dim trknounits
> dim trkstates
> dim trkreefer
> dim trkvan
> dim trkflatbed
> dim trkdumptruck
> dim trkother
> dim shploads
> dim shpstates
> dim shpreefer
> dim shpvan
> dim shpflatbed
> dim shpdumptruck
> dim shpother
> dim comments
> Dim howsitefound
> Function prepare(str)
> prepare = Replace(Replace(str,"'", "`"),Chr(34), """)
> End Function
> Sub getfields()
> alert('debug');
> company = prepare(Request.Form("company"))
> contact = prepare(Request.Form("contact"))
> address1 = prepare(Request.Form("address1"))
> address2 = prepare(Request.Form("address2"))
> city = prepare(Request.Form("city"))
> state = prepare(Request.Form("state"))
> zip = Request.Form("zip")
> country = prepare(Request.Form("country"))
> phone = Request.Form("phone")
> email = Request.Form("email")
> key = prepare(Request.Form("key"))
> displayemail = Request.Form("displayemail")
> displayphone = Request.Form("displayphone")
> if Request.Form("trucker") = "" then
> trucker = FALSE
> else
> trucker = TRUE
> end if
> if Request.Form("trucker") = "" then
> trucker = FALSE
> else
> trucker = TRUE
> end if
> if Request.Form("shipper") = "" then
> shipper = FALSE
> else
> shipper = TRUE
> end if
> if Request.Form("truckbroker") = "" then
> truckbroker = FALSE
> else
> truckbroker = TRUE
> end if
> if Request.Form("foodbroker") = "" then
> foodbroker = FALSE
> else
> foodbroker = TRUE
> end if
> if Request.Form("manufacturer") = "" then
> manufacturer = FALSE
> else
> manufacturer = TRUE
> end if
> if Request.Form("merchandiser") = "" then
> merchandiser = FALSE
> else
> merchandiser = TRUE
> end if
> if Request.Form("distributor") = "" then
> distributor = FALSE
> else
> distributor = TRUE
> end if
> if Request.Form("ltlcarrier") = "" then
> ltlcarrier = FALSE
> else
> ltlcarrier = TRUE
> end if
> othertype = prepare(Request.Form("othertype"))
> trknounits = Request.Form("trknounits")
> if trknounits = "" then trknounits = "0"
> trkstates = Request.Form("trkstates")
> if trkstates = "" then trkstates = "0"
> if Request.Form("trkreefer") = "" then
> trkreefer = FALSE
> else
> trkreefer = TRUE
> end if
> if Request.Form("trkvan") = "" then
> trkvan = FALSE
> else
> trkvan = TRUE
> end if
> if Request.Form("trkflatbed") = "" then
> trkflatbed = FALSE
> else
> trkflatbed = TRUE
> end if
> if Request.Form("trkdumptruck") = "" then
> trkdumptruck = FALSE
> else
> trkdumptruck = TRUE
> end if
> trkother = Request.Form("trkother")
> shploads = Request.Form("shploads")
> if shploads = "" then shploads = "0"
> shpstates = Request.Form("shpstates")
> if shpstates = "" then shpstates = "0"
> if Request.Form("shpreefer") = "" then
> shpreefer = FALSE
> else
> shpreefer = TRUE
> end if
> if Request.Form("shpvan") = "" then
> shpvan = FALSE
> else
> shpvan = TRUE
> end if
> if Request.Form("shpflatbed") = "" then
> shpflatbed = FALSE
> else
> shpflatbed = TRUE
> end if
> if Request.Form("shpdumptruck") = "" then
> shpdumptruck = FALSE
> else
> shpdumptruck = TRUE
> end if
> howsitefound = prepare(Request.Form("howsitefound"))
> shpother = prepare(Request.Form("shpother"))
> comments = prepare(Request.Form("comments"))
> End Sub
> if Request("mode") = "NEW" then
> getfields()
> Set rs = Server.CreateObject("ADODB.RecordSet")
> q = "INSERT INTO CompanyInfo (Company,Contact,Address1,Address2," &_
> " City,State,Zip,Country,Phone,Email,Key,D
isplayEmail,DisplayPhone," &_
> " Trucker,Shipper,TruckBroker,FoodBroker,M
anufacturer,Merchandiser," &_
> " Distributor,LTLCarrier,OtherType,trkNoUn
its,trkStates,trkReefer,trkVan,"
> &_
> " trkFlatBed,trkDumpTruck,trkOther,shpLoad
s," &_
> " shpStates,shpReefer,shpVan,shpFlatbed,sh
pDumpTruck,shpOther,Comments,Acti
ve
> ,howsitefound)" &_
> " VALUES ('" & company & "','" & contact & "','" & address1 & "','" &
> address2 &_
> "','" & city & "','" & state & "','" & zip & "','" & country & "','" &
> phone &_
> "','" & email & "','" & key & "','" & displayemail & "','" & displayphone
> &_
> "'," & trucker & "," & shipper & "," & truckbroker & "," & foodbroker &
> "," &_
> manufacturer & "," & merchandiser & "," & distributor & "," & ltlcarrier
> &_
> ",'" & othertype & "'," & trknounits & "," & trkstates & "," & trkreefer
> &_
> "," & trkvan & "," & trkflatbed & "," & trkdumptruck & ",'" & trkother &
> "'," &_
> shploads & "," & shpstates & "," & shpreefer & "," & shpvan & "," &
> shpflatbed &_
> "," & shpdumptruck & ",'" & shpother & "','" & comments & "',1,'" &
> howsitefound & "')"
> rs.Open q, "DSN=TruckLoadsDevSQL;"
> q = "SELECT Max(CompanyID) AS coid FROM CompanyInfo"
> rs.Open q, "DSN=TruckLoadsDevSQL;"
> coid = rs("coid").value
> Response.Cookies("coid") = coid
> Response.Cookies("key") = key
> d = Date
> Response.Cookies("coid").expires = DateAdd("yyyy", 2, d)
> Response.Cookies("key").expires = DateAdd("yyyy", 2, d)
> mess = "Your Record has been added to the database. Your Company ID number
> is " &_
> coid & ". Your password is " & key & ". Please write them down. " &_
> "You may edit your record now, if you wish"
> rs.Close
> Set rs = Nothing
> ' if UCase(Request.ServerVariables("SERVER_NAME")) <> "ANGELA" then
> ' Set JMail = Server.CreateObject("JMail.SMTPMail")
> ' JMail.ServerAddress = "mail.truckloads.net:25"
> ' JMail.Sender = "msam@.plan-it-earth.net"
> ' JMail.Subject = "Your Company Registration With www.truckloads.net"
> ' JMail.AddRecipient email
> ' Body = "Dear " & contact & VbCrLf & VbCrLf &_
> ' "Thank you for registering your company with www.truckloads.net! " &
> VbCrLf & VbCrLf &_
> ' "Your Company ID is " & coid & VbCrLf &_
> ' "Your Password is " & key & VbCrLf & VbCrLf &_
> ' "These have been stored in a cookie on your computer for ease of use.
> However, " &_
> ' "if the cookie is deleted, or for some other reason you need to look
> up
> your " &_
> ' "Company ID and Password, please keep this email for future reference.
> "
> & VbCrLf & VbCrLf &_
> ' "Thanks again, " & VbCrLf & VbCrLf &_
> ' "Mark A. Sam, Plan-It-Earth Web Management Services" & VbCrLf &_
> ' "msam@.plan-it-earth.net"
> '
> ' JMail.Body = Body
> ' JMail.Priority = 3
> '
> ' JMail.AddHeader "Originating-IP",
> Request.ServerVariables("REMOTE_ADDR")
> '' JMail.Execute
> '
> ' JMail.Subject = "New Company Registration With www.truckloads.net"
> ' JMail.AddRecipient "msam@.plan-it-earth.net"
> ' JMail.AddRecipient "takempis@.roanoke.infi.net"
> ' Body = "Dear Mark,"& VbCrLf & VbCrLf &_
> ' "The following company has registered with www.truckloads.net:" &
> VbCrLf
> & VbCrLf &_
> ' "Company: " & company & VbCrLf &_
> ' "Contact Name: " & contact & VbCrLf &_
> ' "Address1: " & address1 & VbCrLf &_
> ' "Address2: " & address2 & VbCrLf &_
> ' "City: " & city & VbCrLf &_
> ' "State: " & state & VbCrLf &_
> ' "Zip: " & zip & VbCrLf &_
> ' "Country: " & country & VbCrLf &_
> ' "Phone: " & phone & VbCrLf &_
> ' "Email: " & email & VbCrLf &_
> ' "Company ID:" & coid & VbCrLf &_
> ' "Password:" & key
> ' JMail.Body = Body
> ' JMail.Priority = 3
> '
> ' JMail.AddHeader "Originating-IP",
> Request.ServerVariables("REMOTE_ADDR")
> '' JMail.Execute
> ' Set JMail = Nothing
> ' end if
> elseif Request.Form("mode") = "DELETE" then
> Set rs = Server.CreateObject("ADODB.RecordSet")
> q = "DELETE FROM CompanyInfo WHERE CompanyID =" & Request.Form("coid")
> rs.Open q, "DSN=TruckLoadsDevSQL;"
> Session("mess") = "Your Record has been deleted. You may enter another if
> you wish."
> Response.Cookies("coid") = ""
> Response.Cookies("key") = ""
> Response.Redirect "companyinfo.asp"
> elseif Request.Form("mode") = "UPDATE" then
> getfields()
> coid = Request.Form("coid")
> Set rs = Server.CreateObject("ADODB.RecordSet")
> q = "UPDATE CompanyInfo SET Company='" & company & "',Contact = '" &
> contact &_
> "', Address1 = '" & address1 & "', Address2 = '" & address2 &_
> "', City ='" & city & "', State = '" & state & "', Zip = '" & zip &_
> "',Country = '" & country & "', Phone = '" & phone & "', Email = '" &_
> email & "', Key = '" & key & "', DisplayEmail = '" & displayemail &_
> "', DisplayPhone = '" & displayphone & "', Trucker = " & trucker &_
> ", Shipper = " & shipper & ", TruckBroker = " & truckbroker & ",
> FoodBroker = " &_
> foodbroker & ", Manufacturer = " & manufacturer & ", Merchandiser = " &_
> merchandiser & ", Distributor = " & distributor & ", LTLCarrier = " &_
> ltlcarrier & ", OtherType = '" & othertype & "', trkNoUnits = " &
> trknounits &_
> ", trkStates = " & trkstates & ", trkReefer = " & trkreefer & ", trkVan =
> " &_
> trkvan & ", trkFlatbed = " & trkflatbed & ",trkDumpTruck = " &
> trkdumptruck &_
> ",trkOther = '" & trkother & "', shpLoads = " & shploads & ", shpStates =
> " &_
> shpstates & ", shpReefer = " & shpreefer & ", shpVan = " & shpvan &_
> ", shpFlatbed = " & shpflatbed & ", shpDumpTruck = " & shpdumptruck &_
> ", shpOther = '" & shpother & "', Comments = '" & comments & "' WHERE
> CompanyID = " &_
> Request.Form("coid")
> rs.Open q, "DSN=TruckLoadsDevSQL;"
> Response.Cookies("coid") = coid
> Response.Cookies("key") = key
> d = Date
> Response.Cookies("coid").expires = DateAdd("yyyy", 2, d)
> Response.Cookies("key").expires = DateAdd("yyyy", 2, d)
> mess = "Your Record has been updated."
> Set rs = Nothing
> elseif Request("mode") = "KEY" then
> coid = Request("coid")
> key = Request("key")
> Set rs = Server.CreateObject("ADODB.RecordSet")
> q = "SELECT * FROM CompanyInfo WHERE CompanyID = " & coid &_
> " AND Key LIKE '" & key & "'"
> rs.Open q, "DSN=TruckLoadsDevSQL;"
> if rs.EOF then
> Session("mess") = "Sorry. Your Company ID and/or password were not found.
> Try again?"
> Response.Redirect "companykey.asp"
> end if
> company = prepare(rs("Company").value)
> contact = prepare(rs("Contact").value)
> address1 = prepare(rs("Address1").value)
> address2 = prepare(rs("Address2").value)
> city = prepare(rs("City").value)
> state = prepare(rs("State").value)
> zip = rs("Zip").value
> country = prepare(rs("Country").value)
> phone = rs("Phone").value
> email = rs("Email").value
> key = prepare(rs("Key").value)
> displayemail = rs("DisplayEmail").value
> displayphone = rs("DisplayPhone").value
> trucker = rs("Trucker").value
> shipper = rs("Shipper").value
> truckbroker = rs("TruckBroker").value
> foodbroker = rs("FoodBroker").value
> manufacturer = rs("Manufacturer").value
> merchandiser = rs("Merchandiser").value
> distributor = rs("Distributor").value
> ltlcarrier = rs("LTLCarrier").value
> othertype = prepare(rs("OtherType").value)
> trknounits = rs("trkNoUnits").value
> if trknounits = "" then trknounits = "0"
> trkstates = rs("trkStates").value
> if trkstates = "" then trkstates = "0"
> trkreefer = rs("trkReefer").value
> trkvan = rs("trkVan").value
> trkflatbed = rs("trkFlatBed").value
> trkdumptruck = rs("trkDumpTruck").value
> trkother = rs("trkOther").value
> shploads = rs("shpLoads").value
> if shploads = "" then shploads = "0"
> shpstates = rs("shpStates").value
> if shpstates = "" then shpstates = "0"
> shpreefer = rs("shpReefer").value
> shpvan = rs("shpVan").value
> shpflatbed = rs("shpFlatBed").value
> shpdumptruck = rs("shpDumpTruck").value
> shpother = prepare(rs("shpOther").value)
> comments = prepare(rs("Comments").value)
> Response.Cookies("coid") = coid
> Response.Cookies("key") = key
> d = Date
> Response.Cookies("coid").expires = DateAdd("yyyy", 2, d)
> Response.Cookies("key").expires = DateAdd("yyyy", 2, d)
> end if
> %>
> <html>
> <head>
> <meta NAME="keywords"
> CONTENT="Truckloads. NET,Loads,Load,Loading,Frieght,Freight,T
ruckers,Trucke
r,
> Trucking,Shipper,Shippers,Shipping,Reefe
rs,Reefer,Vans,Dry Vans,Van,Dry
> Van,Haul,Hauling,Backhaul,Backhauls,LTL,
TruckStop,TruckStops,Cash
> Advance,Cach Advances,Rig,Rigs,Manufacturing,UPS,Fede
ral
> Express,Airborne,Agriculture,Produce,Cab
bage,Tomatoes,Fruit,Vegetables,App
le
> s,Peaches,Newsprint,Commodities,Potatoes
,Nursery Stock">
> <meta NAME="description"
> CONTENT="List and Find Trucks and loads. This service is for any person
> or
> company that utilizes trucks for hauling merchandise. This is a listing
> service open to Truckers, Shippers, and Brokers. Registration is required
> for posting to the site. Searches are open to anyone">
> <meta NAME="Author"
> CONTENT="Mark A. Sam 716-679-7607 msam@.plan-it-earth.net Plan-It-Earth
> Web
> Management Services Box 110 Dunkirk, NY 14048 716-679-7607">
> <title>Edit Your Company Information</title>
> <meta name="Microsoft Border" content="tb">
> </head>
> <body leftmargin="0" topmargin="0" background="../images/trucksbg.gif"
> bgcolor="#FFFFFF"
> link="#000080" vlink="#800080" alink="#000080">
> <p><script language="JavaScript"><!--
> <%if mess <> "" then%>
> alert("<%=mess%>");
> <%end if%>
> // --></script> <script LANGUAGE="JavaScript">
> <!--
> function delconfirm(theForm) {
> if(confirm("Are you sure you want to delete your record?")) return (true);
> return(false);
> }
> // -->
> </script> <u><font
> size="4"><strong><script LANGUAGE="JavaScript">
> <!--
> function Validate(theForm)
> {
> if (theForm.company.value == "")
> {
> alert("Please enter a value for the \"Company Name\" field.");
> theForm.company.focus();
> return (false);
> }
> if (theForm.company.value.length > 50)
> {
> alert("Please enter at most 50 characters in the \"Company Name\"
> field.");
> theForm.company.focus();
> return (false);
> }
> if (theForm.contact.value == "")
> {
> alert("Please enter a value for the \"Contact Name\" field.");
> theForm.contact.focus();
> return (false);
> }
> if (theForm.contact.value.length > 50)
> {
> alert("Please enter at most 50 characters in the \"Contact Name\"
> field.");
> theForm.contact.focus();
> return (false);
> }
> if (theForm.address1.value == "")
> {
> alert("Please enter a value for the \"Address Line 1\" field.");
> theForm.address1.focus();
> return (false);
> }
> if (theForm.address1.value.length > 50)
> {
> alert("Please enter at most 50 characters in the \"Address Line 1\"
> field.");
> theForm.address1.focus();
> return (false);
> }
> if (theForm.city.value == "")
> {
> alert("Please enter a value for the \"City\" field.");
> theForm.city.focus();
> return (false);
> }
> if (theForm.city.value.length > 50)
> {
> alert("Please enter at most 50 characters in the \"City\" field.");
> theForm.city.focus();
> return (false);
> }
> if (theForm.state.value == "")
> {
> alert("Please enter a value for the \"State\" field.");
> theForm.state.focus();
> return (false);
> }
> if (theForm.state.value.length > 50)
> {
> alert("Please enter at most 50 characters in the \"State\" field.");
> theForm.state.focus();
> return (false);
> }
> if (theForm.zip.value == "")
> {
> alert("Please enter a value for the \"Postal Code\" field.");
> theForm.zip.focus();
> return (false);
> }
> if (theForm.zip.value.length > 50)
> {
> alert("Please enter at most 50 characters in the \"Postal Code\"
> field.");
> theForm.zip.focus();
> return (false);
> }
> if (theForm.country.value == "")
> {
> alert("Please enter a value for the \"Country\" field.");
> theForm.country.focus();
> return (false);
> }
> if (theForm.country.value.length > 50)
> {
> alert("Please enter at most 50 characters in the \"Country\" field.");
> theForm.country.focus();
> return (false);
> }
> if (theForm.phone.value == "")
> {
> alert("Please enter a value for the \"Phone\" field.");
> theForm.phone.focus();
> return (false);
> }
> if (theForm.phone.value.length > 50)
> {
> alert("Please enter at most 50 characters in the \"Phone\" field.");
> theForm.phone.focus();
> return (false);
> }
> if (theForm.email.value == "")
> {
> alert("Please enter a value for the \"Email Address\" field.");
> theForm.email.focus();
> return (false);
> }
> if (theForm.email.value.length > 50)
> {
> alert("Please enter at most 50 characters in the \"Email Address\"
> field.");
> theForm.email.focus();
> return (false);
> }
> if (theForm.key.value == "")
> {
> alert("Please enter a value for the \"Password\" field.");
> theForm.key.focus();
> return (false);
> }
> if (theForm.key.value.length < 6)
> {
> alert("Please enter at least 6 characters in the \"Password\" field.");
> theForm.key.focus();
> return (false);
> }
> if (theForm.key.value.length > 12)
> {
> alert("Please enter at most 12 characters in the \"Password\" field.");
> theForm.key.focus();
> return (false);
> }
> var checkOK = "0123456789-";
> var checkStr = theForm.trknounits.value;
> var allValid = true;
> var decPoints = 0;
> var allNum = "";
> for (i = 0; i < checkStr.length; i++)
> {
> ch = checkStr.charAt(i);
> for (j = 0; j < checkOK.length; j++)
> if (ch == checkOK.charAt(j))
> break;
> if (j == checkOK.length)
> {
> allValid = false;
> break;
> }
> allNum += ch;
> }
> if (!allValid)
> {
> alert("Please enter only digit characters in the \"Trucker - Number of
> Units that you run\" field.");
> theForm.trknounits.focus();
> return (false);
> }
> var checkOK = "0123456789-";
> var checkStr = theForm.trkstates.value;
> var allValid = true;
> var decPoints = 0;
> var allNum = "";
> for (i = 0; i < checkStr.length; i++)
> {
> ch = checkStr.charAt(i);
> for (j = 0; j < checkOK.length; j++)
> if (ch == checkOK.charAt(j))
> break;
> if (j == checkOK.length)
> {
> allValid = false;
> break;
> }
> allNum += ch;
> }
> if (!allValid)
> {
> alert("Please enter only digit characters in the \"Trucker - Number of
> States that you cover\" field.");
> theForm.trkstates.focus();
> return (false);
> }
> var checkOK = "0123456789-";
> var checkStr = theForm.shploads.value;
> var allValid = true;
> var decPoints = 0;
> var allNum = "";
> for (i = 0; i < checkStr.length; i++)
> {
> ch = checkStr.charAt(i);
> for (j = 0; j < checkOK.length; j++)
> if (ch == checkOK.charAt(j))
> break;
> if (j == checkOK.length)
> {
> allValid = false;
> break;
> }
> allNum += ch;
> }
> if (!allValid)
> {
> alert("Please enter only digit characters in the \"Shipper- Number of
> Loads that you ship per w\" field.");
> theForm.shploads.focus();
> return (false);
> }
> var checkOK = "0123456789-";
> var checkStr = theForm.shpstates.value;
> var allValid = true;
> var decPoints = 0;
> var allNum = "";
> for (i = 0; i < checkStr.length; i++)
> {
> ch = checkStr.charAt(i);
> for (j = 0; j < checkOK.length; j++)
> if (ch == checkOK.charAt(j))
> break;
> if (j == checkOK.length)
> {
> allValid = false;
> break;
> }
> allNum += ch;
> }
> if (!allValid)
> {
> alert("Please enter only digit characters in the \"Shipper- Number of
> States that you ship to\" field.");
> theForm.shpstates.focus();
> return (false);
> }
> var done = 0;
> if(theForm.trucker.checked == (true)) done = 1;
> if(theForm.shipper.checked == (true)) done = 1;
> if(theForm.truckbroker.checked == (true)) done = 1;
> if(theForm.foodbroker.checked == (true)) done = 1;
> if(theForm.manufacturer.checked == (true)) done = 1;
> if(theForm.merchandiser.checked == (true)) done = 1;
> if(theForm.distributor.checked == (true)) done = 1;
> if(theForm.ltlcarrier.checked == (true)) done = 1;
> if(theForm.othertype.value != "") done = 1;
> if(done == 0) {
> alert("You must choose at least one Company Type.");
> theForm.trucker.focus();
> return (false);
> }
> return (true);
> }
> // -->
> </script> </strong></u></p>
> <table width="653" cellpadding="10" align="LEFT" valign="TOP">
> <tr>
> <!-- Button Column -->
> <td width="150" align="LEFT" valign="TOP"><a
> href="http://links.10026.com/?link=../asp/searchloads.asp">
> <img
> src="http://pics.10026.com/?src=../ImagesButtons/searchloads.jpg" alt border="0"></a><a
> href="http://links.10026.com/?link=../asp/searchtrucks.asp"><img
> src="http://pics.10026.com/?src=../ImagesButtons/searchtrucks.jpg" alt border="0"></a><a
> href="http://links.10026.com/?link=../information/information.asp"><img
> src="http://pics.10026.com/?src=../ImagesButtons/information.jpg" alt border="0"></a> </td>
> <!-- Content column -->
> <td align="LEFT" valign="TOP" width="457"><table border="0"
> width="100%">
> <tr>
> <td width="100%"><p align="center"><font size="4"><strong>Edit Your
> Company Information</strong></p>
> <table border="0" width="100%">
> <tr>
> <td align="left" valign="top"><a
> href="http://links.10026.com/?link=truckinfo.asp?mode=EDIT&coid=<%=coid%>&key=<%=key%>"><img
> src="http://pics.10026.com/?src=../images/EnterTrucks.gif" alt="Enter Your Trucks"
> align="left" border="0"></a></td>
> <td align="left" valign="top"><a
> href="http://links.10026.com/?link=loadinfo.asp?mode=EDIT&coid=<%=coid%>&key=<%=key%>"><img
> src="http://pics.10026.com/?src=../images/EnterLoads.gif" alt="Enter Your Load"
> align="left" border="0"></a></td>
> <td align="left" valign="top"><a
> href="http://links.10026.com/?link=listing.asp?company=<%=Server.URLEncode(company)%>&coid=<%=coid%
>"
> Delete Trucks or Loads</strong></a></td>
> </tr>
> </table>
> </td>
> </tr>
> <tr>
> <td width="100%">
> <p align="center"><b><span lang="en-us"><font face="Arial">
> <font color="#FF0000">We would like you to take a survey for a
> new
> service to help you get more business.<br>
> <a target="_blank"
> href="http://links.10026.com/?link=http://www.Plan-It-Earth.Net/TLOSurvey/Default.htm">
> Click Here</a></span></b></td>
> </tr>
> </table>
> <p align="left"><strong><font color="#800000">Please check the
> information you submitted
> and fix any errors!<br>
> Fields with a <font size="5" color="#FF0000">* are required<span
> lang="en-us">
> <font color="#800000"><span style="background-color:
> #FFFF00">$$$$</span></span></strong></p>
> <form ACTION="companyedit.asp" METHOD="POST" ONSUBMIT="return
> Validate(this)">
> <input type="hidden" name="coid" value="<%=coid%>"><input
> type="hidden" name="mode"
> value="UPDATE"><table border="0" width="100%">
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*Company
> Name</strong></td>
> <td width="70%" valign="top"><strong><input VALUE="<%=company%>"
> SIZE="35" ID="fp3"
> NAME="company" maxlength="50"> <br>
> <font size="1" face="Arial">( 0r Your Name )</strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*Contact
> Name</strong></td>
> <td width="70%" valign="top"><strong><input VALUE="<%=contact%>"
> SIZE="35" ID="fp3"
> NAME="contact" maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*Address
> Line 1</strong></td>
> <td width="70%" valign="top"><strong><input VALUE="<%=address1%>"
> SIZE="35" ID="fp3"
> NAME="address1" maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong>Address Line
> 2</strong></td>
> <td width="70%" valign="top"><strong><input VALUE="<%=address2%>"
> SIZE="35" ID="fp3"
> NAME="address2" maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*City</strong></td>
> <td width="70%" valign="top"><strong><input VALUE="<%=city%>"
> SIZE="35" ID="fp3"
> NAME="city" maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*State</strong></td>
> <td width="70%" valign="top"><strong><input VALUE="<%=state%>"
> SIZE="35" ID="fp3"
> NAME="state" maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*Postal
> Code</strong></td>
> <td width="70%" valign="top"><strong><input VALUE="<%=zip%>"
> SIZE="35" ID="fp3" NAME="zip"
> maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*Country</strong></td>
> <td width="70%" valign="top"><strong><input VALUE="USA" SIZE="35"
> ID="fp3" NAME="country"
> maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*Phone</strong></td>
> <td width="70%" valign="top"><strong><input VALUE="<%=phone%>"
> SIZE="35" ID="fp3"
> NAME="phone" maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*Email
> Address</strong></td>
> <td width="70%" valign="top"><strong><input VALUE="<%=email%>"
> SIZE="35" ID="fp3"
> NAME="email" maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*Select
> a Password</strong></td>
> <td width="70%" valign="top"><strong><font color="#000000"><input
> VALUE="<%=key%>"
> SIZE="12" ID="fp10" NAME="key"> <br>
> <font color="#000000" size="1" face="Arial">( 6 - 12
> characters )</strong></td>
> </tr>
> <tr>
> <td width="100%" colspan="2" valign="top"><strong>Type a Phone
> and
> Email Address you wish
> to be <em>displayed</em> with your transactions.</strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong>Email
> Address</strong></td>
> <td width="70%" valign="top"><strong><input
> VALUE="<%=displayemail%>" SIZE="35" ID="fp3"
> NAME="displayemail" maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font size="5"
> color="#FF0000">*Phone</strong></td>
> <td width="70%" valign="top"><strong><input
> VALUE="<%=displayphone%>" SIZE="35" ID="fp3"
> NAME="displayphone" maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="100%" colspan="2" bgcolor="#C0C0C0"
> height="1" valign="top"></td>
> </tr>
> <tr>
> <td width="100%" colspan="2" valign="top"><strong><font size="5"
> color="#FF0000">*Type
> of company (Check <font color="#800000">at least one, and
> check all that apply):<br>
> </strong><input TYPE="checkbox" <%if trucker = TRUE then%>
> checked
> <%end if%> VALUE="ON"
> ID="fp16" NAME="trucker"> <strong><label
> for="fp16">Trucker</label><br>
> <input TYPE="checkbox" <%if shipper = TRUE then%> checked <%end
> if%> VALUE="ON" ID="fp17"
> NAME="shipper"> <label for="fp17">Shipper</label><br>
> <input TYPE="checkbox" <%if truckbroker = TRUE then%> checked
> <%end if%> VALUE="ON"
> ID="fp18" NAME="truckbroker"> <label for="fp18">Truck
> Broker</label><br>
> <input TYPE="checkbox" <%if foodbroker = TRUE then%> checked
> <%end
> if%> VALUE="ON"
> ID="fp19" NAME="foodbroker"> <label for="fp19">Food
> Broker</label><br>
> <input TYPE="checkbox" <%if manufacturer = TRUE then%> checked
> <%end if%> VALUE="ON"
> ID="fp20" NAME="manufacturer"> <label
> for="fp20">Manufacturer</label><br>
> <input TYPE="checkbox" <%if merchandiser = TRUE then%> checked
> <%end if%> VALUE="ON"
> ID="fp21" NAME="merchandiser"> <label
> for="fp21">Mechandiser</label><br>
> <input TYPE="checkbox" <%if distributor = TRUE then%> checked
> <%end if%> VALUE="ON"
> ID="fp22" NAME="distributor"> <label
> for="fp22">Distributor</label><br>
> <input TYPE="checkbox" <%if ltlcarrier = TRUE then%> checked
> <%end
> if%> VALUE="ON"
> ID="fp23" NAME="ltlcarrier"> <label for="fp23">LTL
> Carrier</label><br>
> Other Type <input VALUE="<%=othertype%>" SIZE="50" ID="fp24"
> NAME="othertype"
> maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="100%" colspan="2" bgcolor="#C0C0C0"
> height="1" valign="top"></td>
> </tr>
> <tr>
> <td width="100%" colspan="2" valign="top"><strong>Please supply
> the following Information
> (Not required)</strong></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><font
> color="#400000"><strong>Truckers</strong></td>
> <td width="70%" valign="top"></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><font
> color="#0000a0"><strong>Number of units
> that you run</strong></td>
> <td width="70%" valign="top"><input VALUE="<%=trknounits%>"
> SIZE="6" NAME="trknounits"> </td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font
> color="#0000a0">Number of states
> that you cover</strong></td>
> <td width="70%" valign="top"><input VALUE="<%=trkstates%>"
> SIZE="6" NAME="trkstates"> </td>
> </tr>
> <tr>
> <td width="100%" colspan="2" valign="top"><strong><font
> color="#0000a0">Type of trucks </strong><input
> TYPE="checkbox" <%if trkreefer = TRUE then%> checked <%end if%>
> VALUE="ON" ID="fp11"
> NAME="trkreefer"> <label for="fp11">Reefers</label> <input
> TYPE="checkbox"
> <%if trkvan = TRUE then%> checked <%end if%> VALUE="ON" ID="fp12"
> NAME="trkvan"> <label
> for="fp12">Vans</label> <input TYPE="checkbox" <%if trkflatbed =
> TRUE then%> checked
> <%end if%> VALUE="ON" ID="fp13" NAME="trkflatbed"> <label
> for="fp13">Flatbeds</label> <input
> TYPE="checkbox" <%if trkdumptruck = TRUE then%> checked <%end
> if%>
> VALUE="ON" ID="fp14"
> NAME="trkdumptruck"> <label for="fp14">Dump Trucks</label> <br>
> <font color="#0000A0"><strong>Other Type</strong>
> <strong><input
> VALUE="<%=trkother%>" SIZE="50" ID="fp24" NAME="trkother"
> maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="100%" colspan="2" bgcolor="#C0C0C0" height="1"
> valign="top"></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font
> color="#400000">Shippers</strong></td>
> <td width="70%" valign="top"></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font
> color="#0000a0">Number of loads<br>
> that you ship per w</strong></td>
> <td width="70%" valign="top"><input VALUE="<%=shploads%>"
> SIZE="6"
> NAME="shploads"> </td>
> </tr>
> <tr>
> <td width="30%" valign="top"><strong><font
> color="#0000a0">Number of states
> that you ship to</strong></td>
> <td width="70%" valign="top"><input VALUE="<%=shpstates%>"
> SIZE="6" NAME="shpstates"> </td>
> </tr>
> <tr>
> <td width="100%" colspan="2" valign="top"><strong><font
> color="#0000a0">Type of trucks
> needed </strong><input TYPE="checkbox" <%if shpreefer =
> TRUE then%> checked
> <%end if%> VALUE="ON" ID="fp11" NAME="shpreefer"> <label
> for="fp11">Reefers</label> <input
> TYPE="checkbox" <%if shpvan = TRUE then%> checked <%end if%>
> VALUE="ON" ID="fp12"
> NAME="shpvan"> <label for="fp12">Vans</label> <input
> TYPE="checkbox"
> <%if shpflatbed = TRUE then%> checked <%end if%> VALUE="ON"
> ID="fp13" NAME="shpflatbed"> <label
> for="fp13">Flatbeds</label> <input TYPE="checkbox" <%if
> shpdumptruck = TRUE then%> checked
> <%end if%> VALUE="ON" ID="fp14" NAME="shpdumptruck"> <label
> for="fp14">Dump Trucks</label>
> <br>
> <font color="#0000A0"><strong>Other Type</strong>
> <strong><input
> VALUE="<%=shpother%>" SIZE="50" ID="fp24" NAME="shpother"
> maxlength="50"> </strong></td>
> </tr>
> <tr>
> <td width="100%" colspan="2" bgcolor="#C0C0C0"
> height="1" valign="top"></td>
> </tr>
> <tr>
> <td width="30%"
> valign="top"><strong>Comments</strong></td>
> <td width="70%" valign="top"><label for="fp1"><strong><font
> color="#ffffff"><textarea
> ROWS="6" COLS="35" NAME="comments"><%=comments%>
> </textarea></strong></label></td>
> </tr>
> <tr>
> <td width="30%" valign="top"><input TYPE="submit" VALUE="Update"
> NAME="Submitted"> </td>
> <td width="70%" valign="top"><input TYPE="reset" VALUE="Reset"
> NAME="B2"></td>
> </tr>
> </table>
> </form>
> </td>
> </tr>
> </table>
> </html>
>
>|||Keith,
Thanks. That was just what I needed. I wish I knew that a long time ago
for other issues.
Here is the error:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default
driver specified
/aspSQL/CompanyEdit.asp, line 178
This is a hosted site, and I set up a DSN through a control panel they
provided. Apparently something is wrong on their end. Now I can take it
up with their Tech Support and have something solid to give to them.
God Bless,
Mark
"Keith Kratochvil" <sqlguy.back2u@.comcast.net> wrote in message
news:usVOc3hYFHA.2900@.TK2MSFTNGP10.phx.gbl...
> Turn off
> "Show friendly HTTP error messages"
> within the Internet Options of Internet Explorer.
> re-run the page
> Does that result in a better (more HELPFUL) error message?
> --
> Keith
>
> "Mark A. Sam" <msam@.Plan-It-Earth.Net> wrote in message
> news:%23XdranhYFHA.3040@.TK2MSFTNGP14.phx.gbl...
a
is
" Distributor,LTLCarrier,OtherType,trkNoUn
its,trkStates,trkReefer,trkVan,"
" shpStates,shpReefer,shpVan,shpFlatbed,sh
pDumpTruck,shpOther,Comments,Active[colo
r=darkred]
displayphone
ltlcarrier
trkreefer
&
number
use.
reference.
if
&_
=
=
found.
CONTENT="Truckloads. NET,Loads,Load,Loading,Frieght,Freight,T
ruckers,Trucker,
Express,Airborne,Agriculture,Produce,Cab
bage,Tomatoes,Fruit,Vegetables,Apple[col
or=darkred]
required
(true);
field.");
field.");
field.");
of
of
</td>
Your
href="listing.asp?company=<%=Server.URLEncode(company)%>&coid=<%=coid%>"
required<span
size="5"
VALUE="<%=company%>"
Name )</strong></td>
size="5"
VALUE="<%=contact%>"
size="5"
VALUE="<%=address1%>"
VALUE="<%=address2%>"
size="5"
size="5"
size="5"
size="5"
SIZE="35"
size="5"
size="5"
size="5"
color="#000000"><input
size="5"
size="5"
and
ID="fp12"
=
VALUE="Update"
>|||Use DSN-less connections! Refer to www.connectionstrings.com to show you
how to create a connection string within the asp code that contains
everything that you need.
Keith
"Mark A. Sam" <msam@.Plan-It-Earth.Net> wrote in message
news:uBkpTXiYFHA.2520@.TK2MSFTNGP09.phx.gbl...
> Keith,
> Thanks. That was just what I needed. I wish I knew that a long time ago
> for other issues.
> Here is the error:
> Microsoft OLE DB Provider for ODBC Drivers error '80004005'
> [Microsoft][ODBC Driver Manager] Data source name not found and no default
> driver specified
> /aspSQL/CompanyEdit.asp, line 178
>
> This is a hosted site, and I set up a DSN through a control panel they
> provided. Apparently something is wrong on their end. Now I can take it
> up with their Tech Support and have something solid to give to them.
> God Bless,
> Mark
>
> "Keith Kratochvil" <sqlguy.back2u@.comcast.net> wrote in message
> news:usVOc3hYFHA.2900@.TK2MSFTNGP10.phx.gbl...
> a
> is
> " Distributor,LTLCarrier,OtherType,trkNoUn
its,trkStates,trkReefer,trkVan,"
> " shpStates,shpReefer,shpVan,shpFlatbed,sh
pDumpTruck,shpOther,Comments,Acti
ve
> displayphone
> ltlcarrier
> trkreefer
> &
> number
> use.
> reference.
> if
> &_
> =
> =
> found.
> CONTENT="Truckloads. NET,Loads,Load,Loading,Frieght,Freight,T
ruckers,Trucke
r,
> Express,Airborne,Agriculture,Produce,Cab
bage,Tomatoes,Fruit,Vegetables,App
le
> required
> (true);
> field.");
> field.");
> field.");
> of
> of
> </td>
> Your
> href="http://links.10026.com/?link=listing.asp?company=<%=Server.URLEncode(company)%>&coid=<%=coid%
>"
> required<span
> size="5"
> VALUE="<%=company%>"
> Name )</strong></td>
> size="5"
> VALUE="<%=contact%>"
> size="5"
> VALUE="<%=address1%>"
> VALUE="<%=address2%>"
> size="5"
> size="5"
> size="5"
> size="5"
> SIZE="35"
> size="5"
> size="5"
> size="5"
> color="#000000"><input
> size="5"
> size="5"
> and
> ID="fp12"
> =
> VALUE="Update"
>