DWUTKA at marlow.com
DWUTKA at marlow.com
Thu May 20 10:49:33 CDT 2004
Paul, I replied to a similar email you sent on Friday. You are trying to do client side effects with ASP. So I am not cluttering the list, look back through the subject 'RE: [AccessD] OT-ASP OnChange To Call A Function' for my reply, if you can't find it, let me know, and I'll send it off list again. Drew -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of paul.hartland at fsmail.net Sent: Thursday, May 20, 2004 4:24 AM To: accessd Subject: [AccessD] OT-Can anyone help me with ASP problem (complete novice) To all, Firstly can anyone suggest a good asp list that's as excellent as this one ?. Secondly is there anyone that can tell me what I'm doing wrong in the following ASP code: <%@ Language="VBScript" %> <% Option Explicit %> <!--#Include Virtual="/ADOVBS.inc"--> <% Sub OfficeSelected() strOffice=ddOffices.Options(ddOffices.SelectedIndex).Text response.write strOffice End Sub %> <% Dim dbConn Dim rsCheck Dim rsOffice Dim strSQLAccess Dim strSQLOffice Dim strChkUser Dim strChkPass Dim strUser Dim strOffice Set dbConn=Server.CreateObject("ADODB.Connection") Set rsOffice=Server.CreateObject("ADODB.Recordset") Set rsCheck=Server.CreateObject("ADODB.Recordset") dbConn.ConnectionString=Server.MapPath("Genesis.mdb") dbConn.Provider="Microsoft.Jet.OLEDB.4.0" dbConn.Open strChkUser=request.form("Username") strChkPass=request.form("Password") strUser=UCase(Left(strChkUser,1)) & LCase(Mid(strChkUser,2,(InStr(strChkUser,".")-1))) strSQLAccess="SELECT Username, Password FROM tblUsers WHERE EnableUser=True AND Username='" & strChkUser & "' AND Password='" & strChkPass & "'" Set rsCheck=dbConn.Execute(strSQLAccess) %> <BODY background="niceblue.jpg"> <% if ( rsCheck.EOF ) Then %> <H2><FONT color="Black"><CENTER><B><I>Username and/or Password Not Recognised</I></B></CENTER></FONT></H2> <% Else strSQLOffice="SELECT OfficeName FROM tblOffices" Set rsOffice=dbConn.Execute(strSQLOffice) If ( rsOffice.EOF=False ) Then rsOffice.MoveFirst response.write "<H2><CENTER><FONT color='White'>Welcome To The Orridge Internet Reporting System " & strUser & "</FONT></CENTER></H2>" response.write "<HR WIDTH='100%'>" response.write "<FONT color='White'><B>Please Select An Office:</B></FONT>" %> <DEFANGED_SELECT name='ddOffices' onchange='OfficeSelected()'> <DEFANGED_OPTION selected=""Selected"" value="""">Choose....</DEFANGED_OPTION> <% Do Until rsOffice.EOF=True %> <DEFANGED_OPTION> <% =rsOffice.Fields("OfficeName").Value %> </DEFANGED_OPTION> <% rsOffice.MoveNext Loop %> </DEFANGED_SELECT> <% response.write "<HR WIDTH='100%'>" response.write request.form("ddOffices") rsOffice.Close Set rsOffice=Nothing End If End If %> </BODY> <% rsCheck.Close Set rsCheck=Nothing dbConn.Close Set dbConn=Nothing %> I get and Error for Line 3 saying Object Expected, but haven't a clue what this could be.....I hope someone can point me in the right direction. Basically when a user selects an option from the dropdown box I want to jump to the function at the top of the page and then just print the office that the user selected underneath the dropdown box. Thanks in advance. Paul Hartland -- Whatever you Wanadoo: http://www.wanadoo.co.uk/time/ This email has been checked for most known viruses - find out more at: http://www.wanadoo.co.uk/help/id/7098.htm -- _______________________________________________ AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com