Guest_imported
New member
- Jan 1, 1970
- 0
I wanted to have this code return recordsets using array but I am having all kinds of problem with the array (txtData). It is supposed to split my data into 14. It is not doing so. Instead, it is returning blank and because it is returning blank, it is causing the code to not work.
I can't seem to figure it out.
Can someone please rewrite this withour array?
Here is the code:
<% Language=VBScript %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual
Studio 6.0">
</head>
<body>
<%
const ArraySep = ","
Dim objConn,objCmd,objRS
Set objConn =server.CreateObject("ADODB.Connection"
Set objCmd= server.CreateObject("ADODB.Command"
Set objRs=server.CreateObject("ADODB.Recordset"
objConn.CursorLocation = 3
objConn.Open "DSN=mydb;UID=scott;PWD=tiger"
objRs.CursorLocation = 3
objRs.CursorType = 3
objRs.LockType = 4
dim StRaData , StData
StRaData = Request.Form("txtData" & ArraySep
StData=Request.Form("txtData"
response.write "txtData=" & StData & "<BR><BR>"
StData = Split(StData, ","
for n=0 to ubound(stData)
response.write n & "=" & stData & "<BR>"
next
response.end
With objCmd
.CommandType = &H0004
.ActiveConnection = objConn
.CommandText = "gt_result"
.Parameters.Append .CreateParameter("P_FirstName",200, &H0002, 20, stData(0))
.Parameters.Append .CreateParameter("P_LastName",200, &H0003, 20, stData(1))
.Parameters.Append .CreateParameter("P_Email", 200,&H0002, 255, stData(2))
.Parameters.Append .CreateParameter("P_Phone", 200,&H0003, 20, stData(3))
.Parameters.Append .CreateParameter("P_Fax",200, &H0002, 20, stData(4))
.Parameters.Append .CreateParameter("P_Address1",200, &H0002, 50, stData(5))
.Parameters.Append .CreateParameter("P_Address2", 200,&H0002, 50, stData(6))
.Parameters.Append .CreateParameter("P_City",200, &H0002, 20, stData(7))
.Parameters.Append .CreateParameter("P_State",200, &H0002, 20, stData(8))
.Parameters.Append .CreateParameter("P_ZipCode", 200,&H0002, 20, stData(98))
.Parameters.Append .CreateParameter("P_Country",200, &H0002, 20, stData(10))
.Parameters.Append .CreateParameter("P_EducationDetails",200, &H0002, 20, stData(11))
.Parameters.Append .CreateParameter("P_YearExperience", 200,&H0002, 20, stData(12))
.Parameters.Append .CreateParameter("P_ExperienceDetails",200, &H0002, 20, stData(13))
End With
objRs.Open objCmd
%>
<TABLE cellSpacing=0 cellPadding=10 width="58%"
border=1
align="center">
<TR>
<TD align=middle>
CV Search Result
</TD></TR>
<TR>
<% If Not objRs.EOF And objRs.BOF Then
While not objRs.Eof %>
<TR><TD><%= objRs.Fields(1).value%></TD></TR>
<TR><TD><%= objRs.Fields(2).value%></TD></TR>
<TR><TD><%= objRs.Fields(3).value%></TD></TR>
<TR><TD><%= objRs.Fields(4).value%></TD></TR>
<TR><TD><%= objRs.Fields(5).value%></TD></TR>
<% obRs.moveNext
Wend
else
response.write stData(0) & stData(1) & stData(2) & stData(3) & stData(4) %>
<TR><TD> No Records Found...</TD></TR>
<% end if
Set objCmd=nothing
objRs.close
Set objRs=nothing
Set Conn = nothing
%>
</TR>
</TABLE>
</body>
</html>
Your help is highly appreciated.
I can't seem to figure it out.
Can someone please rewrite this withour array?
Here is the code:
<% Language=VBScript %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual
Studio 6.0">
</head>
<body>
<%
const ArraySep = ","
Dim objConn,objCmd,objRS
Set objConn =server.CreateObject("ADODB.Connection"
Set objCmd= server.CreateObject("ADODB.Command"
Set objRs=server.CreateObject("ADODB.Recordset"
objConn.CursorLocation = 3
objConn.Open "DSN=mydb;UID=scott;PWD=tiger"
objRs.CursorLocation = 3
objRs.CursorType = 3
objRs.LockType = 4
dim StRaData , StData
StRaData = Request.Form("txtData"
& ArraySepStData=Request.Form("txtData"
response.write "txtData=" & StData & "<BR><BR>"
StData = Split(StData, ","
for n=0 to ubound(stData)
response.write n & "=" & stData
& "<BR>"next
response.end
With objCmd
.CommandType = &H0004
.ActiveConnection = objConn
.CommandText = "gt_result"
.Parameters.Append .CreateParameter("P_FirstName",200, &H0002, 20, stData(0))
.Parameters.Append .CreateParameter("P_LastName",200, &H0003, 20, stData(1))
.Parameters.Append .CreateParameter("P_Email", 200,&H0002, 255, stData(2))
.Parameters.Append .CreateParameter("P_Phone", 200,&H0003, 20, stData(3))
.Parameters.Append .CreateParameter("P_Fax",200, &H0002, 20, stData(4))
.Parameters.Append .CreateParameter("P_Address1",200, &H0002, 50, stData(5))
.Parameters.Append .CreateParameter("P_Address2", 200,&H0002, 50, stData(6))
.Parameters.Append .CreateParameter("P_City",200, &H0002, 20, stData(7))
.Parameters.Append .CreateParameter("P_State",200, &H0002, 20, stData(8))
.Parameters.Append .CreateParameter("P_ZipCode", 200,&H0002, 20, stData(98))
.Parameters.Append .CreateParameter("P_Country",200, &H0002, 20, stData(10))
.Parameters.Append .CreateParameter("P_EducationDetails",200, &H0002, 20, stData(11))
.Parameters.Append .CreateParameter("P_YearExperience", 200,&H0002, 20, stData(12))
.Parameters.Append .CreateParameter("P_ExperienceDetails",200, &H0002, 20, stData(13))
End With
objRs.Open objCmd
%>
<TABLE cellSpacing=0 cellPadding=10 width="58%"
border=1
align="center">
<TR>
<TD align=middle>
CV Search Result
</TD></TR>
<TR>
<% If Not objRs.EOF And objRs.BOF Then
While not objRs.Eof %>
<TR><TD><%= objRs.Fields(1).value%></TD></TR>
<TR><TD><%= objRs.Fields(2).value%></TD></TR>
<TR><TD><%= objRs.Fields(3).value%></TD></TR>
<TR><TD><%= objRs.Fields(4).value%></TD></TR>
<TR><TD><%= objRs.Fields(5).value%></TD></TR>
<% obRs.moveNext
Wend
else
response.write stData(0) & stData(1) & stData(2) & stData(3) & stData(4) %>
<TR><TD> No Records Found...</TD></TR>
<% end if
Set objCmd=nothing
objRs.close
Set objRs=nothing
Set Conn = nothing
%>
</TR>
</TABLE>
</body>
</html>
Your help is highly appreciated.