Hello ASP experts -
Here I am... begging at the altar again
This is the run-time error:
"Active Server Pages error 'ASP 0140'
Page Command Out Of Order
/Forms/ISSystemsAccessWrite.ASP, line 4
The @ command must be the first command within the Active Server Page"
Thanks for any help. John
BTW, this error # is not listed in the ASP book I'm using;is there a good web site that explains all ASP erro codes?
This is my ASP code:
<!--#include file="ISSystemsAccessConnect.asp"-->
<% @ Language=VBScript%>
<%
Dim sql
Dim strNameLast, strNameFirst, strNameMI, strPhoneW, strPhoneH, strPhoneFax
Dim intDept, strJobTitle, datCurDate
Dim blnNewWS, blnExWS, blnNewUser, blnExUser, blnMarcam, blnJDE, blnWMS
Dim blnPR, blnTA, blnNT, blnNTRoam, blnLNotes, blnCLaser, blnDialUp, blnModem
Dim strModelAS400, strModelNT, strLNotesGroup, strSRComments
strNameLast = Request.Form("NameLast"
strNameFirst = Request.Form("NameFirst"
strNameMI = Request.Form("NameMI"
strPhoneW = Request.Form("PhoneW"
strPhoneH = Request.Form("PhoneH"
strPhoneFax = Request.Form("PhoneFax"
intDept = Request.Form("Dept"
strJobTitle = Request.Form("JobTitle"
blnNewWS = Request.Form("NewWS"
blnExWS = Request.Form("ExWS"
blnNewUser = Request.Form("NewUser"
blnExUser = Request.Form("ExUser"
blnMarcam = Request.Form("Marcam"
blnJDE = Request.Form("JDE"
blnWMS = Request.Form("WMS"
blnPR = Request.Form("PR"
blnTA = Request.Form("TA"
blnNT = Request.Form("NT"
blnNTRoam = Request.Form("NTRoam"
blnLNotes = Request.Form("LNotes"
blnCLaser = Request.Form("CLaser"
blnDialUp = Request.Form("DialUp"
blnModem = Request.Form("NameLast"
strModelAS400 = Request.Form("ModelAS400"
strModelNT = Request.Form("ModelNT"
strLNotesGroup = Request.Form("LNotesGroup"
strSRComments = Request.Form("SRComments"
datCurDate = Date
sql = "INSERT INTO SystemsAccessReqs (UserNameL, UserNameF, UserNameMI, UserPhoneW, UserPhoneH, UserFax,
Dept#, JobTitle, NewWS, ExistingWS, NewUser, ExistingUser, Marcam, JDE, WMS, PR, TA, NT, NTRoam, LNotes,
LNotesGroup, ColorLaser, DialUpAccess, Modem, ModelAS400, ModelNT, SerReqComments,
DateSubmitted) VALUES ('" & strNameLast & "', '" & strNameFirst & "', '" & strNameMI & "', '" & strPhoneW & "',
'" & strPhoneH & "', '" & strPhoneFax & "', " & intDept & ", '" & strJobTitle & "', '" & blnNewWS & "',
'" & blnExWS & "', '" & blnNewUser & "', '" & blnExUser & "', '" & blnMarcam & "', '" & blnJDE & "',
'" & blnWMS & "', '" & blnPR & "', '" & blnTA & "', '" & blnNT & "', '" & blnNTRoam & "', '" & blnLNotes & "',
'" & blnCLaser & "', '" & blnDialUp & "', '" & blnModem & "', '" & strModelAS400 & "', '" & strModelNT & "',
'" & strLNotesGroup & "', '" & strSRComments & "', '" & datCurDate & "');"
conn.execute sql
%>
Here I am... begging at the altar again
This is the run-time error:
"Active Server Pages error 'ASP 0140'
Page Command Out Of Order
/Forms/ISSystemsAccessWrite.ASP, line 4
The @ command must be the first command within the Active Server Page"
Thanks for any help. John
BTW, this error # is not listed in the ASP book I'm using;is there a good web site that explains all ASP erro codes?
This is my ASP code:
<!--#include file="ISSystemsAccessConnect.asp"-->
<% @ Language=VBScript%>
<%
Dim sql
Dim strNameLast, strNameFirst, strNameMI, strPhoneW, strPhoneH, strPhoneFax
Dim intDept, strJobTitle, datCurDate
Dim blnNewWS, blnExWS, blnNewUser, blnExUser, blnMarcam, blnJDE, blnWMS
Dim blnPR, blnTA, blnNT, blnNTRoam, blnLNotes, blnCLaser, blnDialUp, blnModem
Dim strModelAS400, strModelNT, strLNotesGroup, strSRComments
strNameLast = Request.Form("NameLast"
strNameFirst = Request.Form("NameFirst"
strNameMI = Request.Form("NameMI"
strPhoneW = Request.Form("PhoneW"
strPhoneH = Request.Form("PhoneH"
strPhoneFax = Request.Form("PhoneFax"
intDept = Request.Form("Dept"
strJobTitle = Request.Form("JobTitle"
blnNewWS = Request.Form("NewWS"
blnExWS = Request.Form("ExWS"
blnNewUser = Request.Form("NewUser"
blnExUser = Request.Form("ExUser"
blnMarcam = Request.Form("Marcam"
blnJDE = Request.Form("JDE"
blnWMS = Request.Form("WMS"
blnPR = Request.Form("PR"
blnTA = Request.Form("TA"
blnNT = Request.Form("NT"
blnNTRoam = Request.Form("NTRoam"
blnLNotes = Request.Form("LNotes"
blnCLaser = Request.Form("CLaser"
blnDialUp = Request.Form("DialUp"
blnModem = Request.Form("NameLast"
strModelAS400 = Request.Form("ModelAS400"
strModelNT = Request.Form("ModelNT"
strLNotesGroup = Request.Form("LNotesGroup"
strSRComments = Request.Form("SRComments"
datCurDate = Date
sql = "INSERT INTO SystemsAccessReqs (UserNameL, UserNameF, UserNameMI, UserPhoneW, UserPhoneH, UserFax,
Dept#, JobTitle, NewWS, ExistingWS, NewUser, ExistingUser, Marcam, JDE, WMS, PR, TA, NT, NTRoam, LNotes,
LNotesGroup, ColorLaser, DialUpAccess, Modem, ModelAS400, ModelNT, SerReqComments,
DateSubmitted) VALUES ('" & strNameLast & "', '" & strNameFirst & "', '" & strNameMI & "', '" & strPhoneW & "',
'" & strPhoneH & "', '" & strPhoneFax & "', " & intDept & ", '" & strJobTitle & "', '" & blnNewWS & "',
'" & blnExWS & "', '" & blnNewUser & "', '" & blnExUser & "', '" & blnMarcam & "', '" & blnJDE & "',
'" & blnWMS & "', '" & blnPR & "', '" & blnTA & "', '" & blnNT & "', '" & blnNTRoam & "', '" & blnLNotes & "',
'" & blnCLaser & "', '" & blnDialUp & "', '" & blnModem & "', '" & strModelAS400 & "', '" & strModelNT & "',
'" & strLNotesGroup & "', '" & strSRComments & "', '" & datCurDate & "');"
conn.execute sql
%>