ASP, DSNless connection, Database...HELP!!!

Dev Shed Forums Sponsor:

December 26th, 2000, 08:13 PM

duellsy

Junior Member

Join Date: Dec 2000

Location: seymour, vic, australia

Posts: 12

Time spent in forums: < 1 sec
Reputation Power: 0

I have a page that needs to have ASP to work, im usin asp to read from an 'access' database called 'mbdata.mdb' and i want the data to load onto the 'accommodation.asp' page, CAN U PLEASE HELP ME OUT, WHAT HAVE I DONE WRONG? to view the page, go to: http://www.ausclick.com/duellsy/index2.html
then click on find, then select accommodation
HERE IS THE 'ACCOMMODATION.ASP' PAGE:

<head>

<SCRIPT LANGUAGE="JavaScript">
function dropdownmenu(item){
window.location.href=item.options[item.selectedIndex].value;}
</SCRIPT>

<font color="red"><B>ACCOMMODATION </b></font><i>Your search has found <b>8</b> results<br></i>

<font size="5">
Other related searches <form name="menu1" align="left">
<select name="otherpages" size=1
onchange="dropdownmenu(document.menu1.otherpages)">
<OPTION VALUE="*">Select
<OPTION VALUE="../m/motels.html">Motels

</select>
<blockquote><font size="4">

<%
accessdb=server.mappath("mbdata.mdb")
strconn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strconn=strconn & accessDB & ";"
'strconn=strconn & "USER ID=;PASSWORD=;"

mySQL="select * from accommodation"

call query2table(mySQL, strconn)
%>


AND HERE IS THE 'TABLE.ASP' FILE:

<%
sub query2table(inputquery, inputDSN)
dim conntemp, rstemp
set conntemp=server.createobject("adodb.connection")
conntemp.open inputDSN
set rstemp=conntemp.execute (inputquery)
howmanyfields=rstemp.fields.count -1%>
<table border=1><tr>
<% 'Put headings on the table of the Field names
for i=0 to howmanyfields %>
<td><B><%=rstemp (i) .name%></b></td>
<% next %>
</tr>
<% ' Now lets grab all the records
do while not rstemp.eof %>
<tr>
<% for i = 0 to howmanyfields
thisvalue=rstemp(i)
If isnull (thisvalue) then
thisvalue=" "
end If%>
<td valign=top><%=thisvalue%></td>
<% next %>
</tr>
<%rstemp.movenext
loop%>
</table>
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
end sub%>

December 27th, 2000, 02:14 PM

luciddream

Member

Join Date: Dec 2000

Location: Ft. Lauderdale, FL, US

Posts: 29

Time spent in forums: < 1 sec
Reputation Power: 0

%>
</table>
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
end sub%>

should be:

%>
</table>
<%
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
end sub%>

December 27th, 2000, 11:48 PM

duellsy

Junior Member

Join Date: Dec 2000

Location: seymour, vic, australia

Posts: 12

Time spent in forums: < 1 sec
Reputation Power: 0

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/duellsy/table.asp, line 25

that is what comes up as the error, still
what can i do?

December 28th, 2000, 11:20 AM

luciddream

Member

Join Date: Dec 2000

Location: Ft. Lauderdale, FL, US

Posts: 29

Time spent in forums: < 1 sec
Reputation Power: 0

umm, maybe try making end sub, End Sub...

i'm not very good with VBScript, but, i know that some one here: www.tek-tips.com

will be able to help you in the asp forum if that doesnt work.

January 23rd, 2001, 01:36 PM

venvaithi

Junior Member

Join Date: Jan 2001

Posts: 4

Time spent in forums: < 1 sec
Reputation Power: 0

Quote:

Originally posted by luciddream
umm, maybe try making end sub, End Sub...

i'm not very good with VBScript, but, i know that some one here: www.tek-tips.com

will be able to help you in the asp forum if that doesnt work.

I think u r connection string is wrong it should be UId and PWD for user id and password
Please inform me if it works out
just try

Viewing: Dev Shed Forums > Web Design > HTML Programming > ASP, DSNless connection, Database...HELP!!!

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

How to Present Effectively Online
This white paper offers practical and actionable advice on the key steps that any presenter should consider as they plan and execute a Webinar or online meeting.

Open Source Security Myths
Open Source Software (OSS) is computer software whose source code is available to the general public with relaxed or non-existent intellectual property restrictions (or arrangement such as the public domain), and is usually developed with the input of many contributors.

Power and Cooling Capacity Management for Data Centers
This paper describes the principles for achieving power and cooling capacity management.

Scalable, Fault-Tolerant NAS for Oracle - The Next Generation
For several years NAS has been evolving as a storage alternative for Oracle databases, and for good reason: NAS is quite often the simplest, most cost-effective storage approach for Oracle. Learn about the benefits that HP's approach to scalable NAS brings to Oracle environments in this comprehensive white paper.

Understanding Web Application Security Challenges
This white paper discusses many common threats and preventive measures for Web application security, and explains what you can do to help protect your organization.

More Free IT White Papers!