Help! For some reason this is not working. I am asking it to bring up all
of the records but it only brings up one.
Molly
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Regional_Personnel.asp" -->
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Regional_Personnel_STRING
Recordset1.Source = "SELECT * FROM RegionPersonnel"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 10
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="50%" border="1">
<tr>
<td width="4%">
<div align="center">ID</div>
</td>
<td width="4%">
<div align="center">Region</div>
</td>
<td width="8%">
<div align="center">Main Phone</div>
</td>
<td width="6%">
<div align="center">Address</div>
</td>
<td width="6%">
<div align="center">City and State</div>
</td>
<td width="6%">
<div align="center">PO Box</div>
</td>
<td width="6%">
<div align="center">Mail Code</div>
</td>
<td width="10%">
<div align="center">Regional Administrator</div>
</td>
<td width="1%">
<div align="center">RA Phone</div>
</td>
<td width="5%">
<div align="center">RITD</div>
</td>
<td width="7%">
<div align="center">RITD Phone</div>
</td>
<td width="5%">
<div align="center">RTO</div>
</td>
<td width="7%">
<div align="center">RTO Phone</div>
</td>
<td width="6%">
<div align="center">RTO FAX</div>
</td>
<td width="2%">
<div align="center">Assistant RTO</div>
</td>
<td width="17%">
<div align="center">Assistant RTO Phone</div>
</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td width="4%">
<%=(Recordset1.Fields.Item("ID").Value)%></td>
<td width="4%"><%=(Recordset1.Fields.Item("Region").Value)%></td>
<td width="8%"><%=(Recordset1.Fields.Item("MainPhone").Value)%></td>
<td width="6%"><%=(Recordset1.Fields.Item("Address").Value)%></td>
<td width="6%"><%=(Recordset1.Fields.Item("CityState").Value)%></td>
<td width="6%"><%=(Recordset1.Fields.Item("POBox").Value)%></td>
<td width="6%"><%=(Recordset1.Fields.Item("MailCode").Value)%></td>
<td
width="10%"><%=(Recordset1.Fields.Item("RegionalAdministrator").Value)%></td
>
<td width="1%"><%=(Recordset1.Fields.Item("RegionalAdministrator
Phone").Value)%></td>
<td width="5%"><%=(Recordset1.Fields.Item("RITD").Value)%></td>
<td width="7%"><%=(Recordset1.Fields.Item("RITDPhone").Value)%></td>
<td width="5%"><%=(Recordset1.Fields.Item("RTO").Value)%></td>
<td width="7%"><%=(Recordset1.Fields.Item("RTOPhone").Value)%></td>
<td width="6%"><%=(Recordset1.Fields.Item("RTOFax").Value)%></td>
<td width="2%"><%=(Recordset1.Fields.Item("Ass't RTO").Value)%></td>
<td width="17%"><%=(Recordset1.Fields.Item("Ass't RTO
Phone").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
Recordset1.Close()
%>
-----Original Message-----
From: Ken Schaefer [mailto:ken@a...]
Sent: Monday, July 16, 2001 3:13 AM
To: ASP Database Setup
Subject: [asp_database_setup] Re: help in this code
Why doesn't it work? What is the error generated?
Ceers
Ken
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
----- Original Message -----
From: "fadi" <fadirh@u...>
To: "ASP Database Setup" <asp_database_setup@p...>
Sent: Sunday, July 15, 2001 1:54 PM
Subject: [asp_database_setup] help in this code
: i have this code it works using DSN but when i dont use dsn it dosent
: dim conn
: set conn=server.CreateObject ("ADODB.CONNECTION")
: conn.Open "DSN=dsn1;UID=sa;"
: dim rsuser
: set rsuser=server.CreateObject ("ADODB.RECORDSET")
: rsuser.Open "INSERT INTO test (name,id) VALUES ('"&Request.Form ("nam")
: &"','"&Request.Form ("id")&"')",conn
: the other code is
:
: dim conn
: set conn=server.CreateObject ("ADODB.CONNECTION")
: conn.Open "Provider=SQLOLEDB; Data Source=local; Initial Catalog=fadi;User
ID=sa;"
: dim rsuser
: set rsuser=server.CreateObject ("ADODB.RECORDSET")
: rsuser.Open "INSERT INTO test (name,id) VALUES ('"&Request.Form ("nam")
: &"','"&Request.Form ("id")&"')",conn
: i dont whay it dosnt work any help please
View Cart
