|
 |
asp_databases thread: Help ---- Urgent
Message #1 by jay48202@y... on Wed, 2 Oct 2002 21:56:23
|
|
Hi,
Kindly help in fixing this problem.
rs.Open "select * from tbLbls where PartType='vPartType'"
I want v20 Engine be substituted in 'vPartType' in the following code, it
is not doing any good. I couldn't get the records from the database.
Correct me. Pls help.
<FORM name=frmsubmitLabels action=lblValuesSubmit_ac.asp method=post>
<TABLE WIDTH=100% BORDER=1 CELLSPACING=5 CELLPADDING=5>
<% Dim vSeqNum,vPartNum,vPartType
vSeqNum=Request.Form("txtSeqPN")
vPartNum=Request.Form("txtPN")
vPartType=Request.Form("txtPT")'I got the part type as v20 Engine
%>
'Displaying above variable values in a table
<TR>
<TD align=center><h4><%Response.Write(vSeqNum)%></h4></TD>
<TD align=center><h4><%Response.Write(vPartNum)%></h4></TD>
<TD align=center><h4><%Response.Write(vPartType)%</h4></TD>
</TR>
</TABLE>
<%Dim vNumLabels
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ("FILEDSN=" + Server.MapPath("Ppk.dsn") + ";")
set rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection=Conn
response.write(vPartType)'v20 Engine displayed
rs.Open "select * from tblLbls where PartType='vPartType'"
response.write(vPartType)'v20 Engine displayed
do until rs.EOF
for each x in rs.Fields
Response.Write(x.PartType)'PartType is a field in tblLbls
Response.Write(x.NumLabels)'NumLabels is a field in tblLbls
next
rs.MoveNext
loop
rs.close
set rs.ActiveConnection=Nothing
Conn.Close
set Conn=Nothing
%>
</Form>
Message #2 by "Owen Mortensen" <ojm@a...> on Wed, 2 Oct 2002 13:56:39 -0700
|
|
Try this:
rs.Open "select * from tbLbls where PartType='" & vPartType & "'"
Cheers,
Owen
-----Original Message-----
From: jay48202@y... [mailto:jay48202@y...]
Sent: Wednesday, October 02, 2002 9:56 PM
To: ASP Databases
Subject: [asp_databases] Help ---- Urgent
Hi,
Kindly help in fixing this problem.
rs.Open "select * from tbLbls where PartType='vPartType'"
I want v20 Engine be substituted in 'vPartType' in the following code,
it
is not doing any good. I couldn't get the records from the database.
Correct me. Pls help.
<FORM name=frmsubmitLabels action=lblValuesSubmit_ac.asp method=post>
<TABLE WIDTH=100% BORDER=1 CELLSPACING=5 CELLPADDING=5> <% Dim
vSeqNum,vPartNum,vPartType
vSeqNum=Request.Form("txtSeqPN")
vPartNum=Request.Form("txtPN") vPartType=Request.Form("txtPT")'I got the
part type as v20 Engine %> 'Displaying above variable values in a table
<TR>
<TD
align=center><h4><%Response.Write(vSeqNum)%></h4></TD>
<TD
align=center><h4><%Response.Write(vPartNum)%></h4></TD>
<TD
align=center><h4><%Response.Write(vPartType)%</h4></TD>
</TR>
</TABLE>
<%Dim vNumLabels
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ("FILEDSN=" + Server.MapPath("Ppk.dsn") + ";")
set rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection=Conn
response.write(vPartType)'v20 Engine displayed
rs.Open "select * from tblLbls where PartType='vPartType'"
response.write(vPartType)'v20 Engine displayed
do until rs.EOF
for each x in rs.Fields
Response.Write(x.PartType)'PartType is a field in tblLbls
Response.Write(x.NumLabels)'NumLabels is a field in tblLbls
next
rs.MoveNext
loop
rs.close
set rs.ActiveConnection=Nothing
Conn.Close
set Conn=Nothing
%>
</Form>
Message #3 by jay48202@y... on Wed, 2 Oct 2002 22:16:39
|
|
Hi there,
It did not work.
Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'PartType'
Table Name: tbLbls
Fields: PartType(nvarchar), NumLabels(int), Labels(nvarchar)
Thanks,
Jay
> Try this:
rs.Open "select * from tbLbls where PartType='" & vPartType & "'"
Cheers,
Owen
-----Original Message-----
From: jay48202@y... [mailto:jay48202@y...]
Sent: Wednesday, October 02, 2002 9:56 PM
To: ASP Databases
Subject: [asp_databases] Help ---- Urgent
Hi,
Kindly help in fixing this problem.
rs.Open "select * from tbLbls where PartType='vPartType'"
I want v20 Engine be substituted in 'vPartType' in the following code,
it
is not doing any good. I couldn't get the records from the database.
Correct me. Pls help.
<FORM name=frmsubmitLabels action=lblValuesSubmit_ac.asp method=post>
<TABLE WIDTH=100% BORDER=1 CELLSPACING=5 CELLPADDING=5> <% Dim
vSeqNum,vPartNum,vPartType
vSeqNum=Request.Form("txtSeqPN")
vPartNum=Request.Form("txtPN") vPartType=Request.Form("txtPT")'I got the
part type as v20 Engine %> 'Displaying above variable values in a table
<TR>
<TD
align=center><h4><%Response.Write(vSeqNum)%></h4></TD>
<TD
align=center><h4><%Response.Write(vPartNum)%></h4></TD>
<TD
align=center><h4><%Response.Write(vPartType)%</h4></TD>
</TR>
</TABLE>
<%Dim vNumLabels
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ("FILEDSN=" + Server.MapPath("Ppk.dsn") + ";")
set rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection=Conn
response.write(vPartType)'v20 Engine displayed
rs.Open "select * from tblLbls where PartType='vPartType'"
response.write(vPartType)'v20 Engine displayed
do until rs.EOF
for each x in rs.Fields
Response.Write(x.PartType)'PartType is a field in tblLbls
Response.Write(x.NumLabels)'NumLabels is a field in tblLbls
next
rs.MoveNext
loop
rs.close
set rs.ActiveConnection=Nothing
Conn.Close
set Conn=Nothing
%>
</Form>
|
|
|
View Cart
