|
| |
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
 |
ODBC error - 6/8/2005 17:14:39
I am trying to create an ODBC that uses SQL Authentication and this is the error I get when I try to do that. Any ideas on what the problem is?
Connection failed:
SQLState: ‘01000’
SQL Server Error: 233
[Microsoft][ODBC SQL Server Driver][Named Pipes]ConnectionRead(GetOverLappedResult()).
Connection failed:
SQLState: ‘08501’
SQL Server Error: 4
[Microsoft][ODBC SQL Server Driver][Named Pipes]Connection broken.
Thanks in advance.
|
|
|
|
rdouglass
Posts: 9272
From: Biddeford, ME USA
Status: offline
|
RE: ODBC error - 6/9/2005 9:22:34
Where is the error displaying, on a web page? If so, I suspect you're trying to connect a web server to a different box running SQL Server.
IIRC using Named Pipes, the IUSR_Machinename needs to be an authorized user on the SQL Server machine. If they're in the same domain (for instance on an Intranet), just add the IUSR_Machinename account to the Everyone group. Depending on whether you're using Active Directory or not, it may or may not be there by default.
At least I think that's how that issue is resolved. Hope it helps.
_____________________________
Don't take you're eye off your final destination.
ASP Checkbox Function Tutorial.
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/9/2005 11:19:02
This is the error I get when I try to access the page. But I couldn't even create the ODBC to begin with. I'll take a look at that account you were talking about and see what's going on with that. Thanks.
Microsoft OLE DB Provider for ODBC Drivers error '80040e4d'
[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'NT AUTHORITY\ANONYMOUS LOGON'.
/Queries/PublicInquiriesForm.asp, line 34
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/9/2005 16:24:36
My administrator has taken a look at both of these and she wanted me to ask if an outdated driver on the IIS server would cause something like this. She noticed that the ODBC driver on the IIS server was outdated. She did say that it is current on the actual SQL server, though.
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 12:30:03
Would I put that statement in my code? I'm not sure how to go about using an sqloledb connection. Can you clarify?
| |
|
|
|
rdouglass
Posts: 9272
From: Biddeford, ME USA
Status: offline
|
RE: ODBC error - 6/10/2005 12:53:09
The code Spooky provided would go in your ASP code and not where you setup a ODBC connection in Windows. For instance, something like:
<%
myDSN = "Provider=sqloledb;Data Source=xxx.xxx.xxx.xxx,1433;Network Library=DBMSSOCN;Initial Catalog=[DatbaseName];User Id=[UserName];Password=[Password];"
mySQL = ("SELECT * FROM myTable")
set conntemp=server.createobject("adodb.connection")
conntemp.open myDSN
set rstemp=conntemp.execute(mySQL)
....
Unless you're using the DRW. Hope it helps.
_____________________________
Don't take you're eye off your final destination.
ASP Checkbox Function Tutorial.
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 13:10:48
Ok I tried that and I get this error.
Microsoft OLE DB Provider for SQL Server error '80004005'
[DBNMPNTW]Specified SQL server not found.
/Queries/PublicInquiriesForm.asp, line 36
And this is the code I put in there.
myDSN = "Provider=sqloledb;Data Source=10.1.99.105,1433;NetworkLibrary=DBMSSOCN;Initial Catalog=[Public_Inquiry];UserId=[sqlquery];Password=[querysql];"
strSQL = (" select Name, Division, Inquirer_Category, Inquiry_Format, Topic, Response from Employees, Division, Inquirer_Category, Inquiry_Format, Topic, Response ")
set conntemp=server.createobject("adodb.connection")
conntemp.open myDSN
set rstemp=conntemp.execute(strSQL)
I assume the ip address was not correct. I used the IP for the server I was trying to create the ODBC on. The data, however, is on a separate server. Should I use the IP for that one?
| |
|
|
|
rdouglass
Posts: 9272
From: Biddeford, ME USA
Status: offline
|
RE: ODBC error - 6/10/2005 13:21:14
quote:
myDSN = "Provider=sqloledb;Data Source=10.1.99.105,1433;NetworkLibrary=DBMSSOCN;Initial Catalog=[Public_Inquiry];UserId=[sqlquery];Password=[querysql];"
Try it this way:
myDSN = "Provider=sqloledb;Data Source=<servername>;Initial Catalog=[Public_Inquiry];UserId=[sqlquery];Password=[querysql];"
and replace <servername> with your machine name. That help any>
_____________________________
Don't take you're eye off your final destination.
ASP Checkbox Function Tutorial.
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 13:38:10
No luck. I still get the same error.
| |
|
|
|
rdouglass
Posts: 9272
From: Biddeford, ME USA
Status: offline
|
RE: ODBC error - 6/10/2005 13:44:33
Can you post what specific code you have used and the IP address and/or network name of your SQL Server?
_____________________________
Don't take you're eye off your final destination.
ASP Checkbox Function Tutorial.
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 13:59:20
myDSN = "Provider=sqloledb;Data Source=<nml-chama>,1433;Initial Catalog=[Public_Inquiry];UserId=[sqlquery];Password=[querysql];"
strSQL = (" select Name, Division, Inquirer_Category, Inquiry_Format, Topic, Response from Employees, Division, Inquirer_Category, Inquiry_Format, Topic, Response ")
set conntemp=server.createobject("adodb.connection")
conntemp.open myDSN
set rstemp=conntemp.execute(strSQL)
| |
|
|
|
rdouglass
Posts: 9272
From: Biddeford, ME USA
Status: offline
|
RE: ODBC error - 6/10/2005 14:42:57
Try this one:
myDSN = "Provider=sqloledb;Data Source=nml-chama;NetworkLibrary=DBMSSOCN;Initial Catalog=[Public_Inquiry];UserId=[sqlquery];Password=[querysql];"
Also your SQL looks a little off. It should look something like:
strSQL = (" select [Name], Division, Inquirer_Category, Inquiry_Format, Topic, Response from (theNameOfTheTable)")
That is assuming the name of the machine that SQL Server is running on is "nml-chama". That any better?
_____________________________
Don't take you're eye off your final destination.
ASP Checkbox Function Tutorial.
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 14:58:52
Still getting the same error. Here is the entire code. Maybe you can find something from there. Thanks. I know it's kinda hairy but I'll clean it up once I get it to work.
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<head>
<title>Public Iquiry Query</title>
<!--[if gte mso 9]><xml>
<mso:CustomDocumentProperties>
<mso:Approval_x0020_Level msdt:dt="string"></mso:Approval_x0020_Level>
<mso:Categories msdt:dt="string">Business</mso:Categories>
<mso:Assigned_x0020_To msdt:dt="string"></mso:Assigned_x0020_To>
</mso:CustomDocumentProperties>
</xml><![endif]-->
<meta name="Microsoft Border" content="b, default">
</head>
<%
Dim conntemp
Dim rstempemp
Dim strSQL
Dim myDSN
Const adOpenKeyset = 0
Const adLockOptimistic = 1
myDSN = "Provider=sqloledb;Data Source=nml-chama,1433;NetworkLibrary=DBMSSOCN;Initial Catalog=[Public_Inquiry];UserId=[sqlquery];Password=[querysql];"
strSQL = (" select Name, Division, Inquirer_Category, Inquiry_Format, Topic, Response from Employees, Division, Inquirer_Category, Inquiry_Format, Topic, Response ")
set conntemp=server.createobject("adodb.connection")
conntemp.open myDSN
set rstempemp=conntemp.execute(strSQL)
rstempemp.Open strSQL, conntemp, adOpenKeyset, adLockOptimistic
%>
<p align="center"><strong><font size="5">Public Inquiries Entry Form</font></strong></p>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults" u-file="_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot bot="SaveResults" endspan i-checksum="43374" --><p align="left">
<u><b>Date Received</b> </u><p align="left">
<input type="text" name="scdate" size="20"> (YYYYMMDD)<p align="left">
<u><b>Staff name & Division Receiving Inquiry</b></u></p>
<p align="left">
<select size="1" name="scname">
<%
' Only display records if there are records in the recordset
If NOT rstempemp.EOF then
'Loop through the recordset until there are no more records
Do While Not rstemp.EOF
%> <option value="<%=rstemp("Name")%>"><%=rstemp("Name")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rstemp.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rstemp.Close
%>
</select> <b>Name</b>
<select size="1" name="scdiv">
<%
' Only display records if there are records in the recordset
If NOT rstemp.EOF then
'Loop through the recordset until there are no more records
Do While Not rstemp.EOF
%> <option value="<%=rstemp("Division")%>"><%=rstemp("Division")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rstemp.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rstemp.Close
%></select> <b>Division</b> </p>
<p align="left">
<b><u>Inquirer Category</u>
<u>Inquiry Format</u></b></p>
<p align="left">
<select size="1" name="sccatgry">
<%
' Only display records if there are records in the recordset
If NOT rstemp.EOF then
'Loop through the recordset until there are no more records
Do While Not rstemp.EOF
%> <option value="<%=rstemp("Inquirer_Category")%>"><%=rstemp("Inquirer_Category")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rstemp.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rstemp.Close
%></select>
<select size="1" name="scformat">
<%
' Only display records if there are records in the recordset
If NOT rstemp.EOF then
'Loop through the recordset until ther are no more records
Do While Not rstemp.EOF
%> <option value="<%=rstemp("Inquiry_Format")%>"><%=rstemp("Inquiry_Format")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rstemp.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rstemp.Close
%>
</select><b> </b></p>
<p align="left">
<u><b>Name of Inquirer</b></u></p>
<p align="left">
<input type="text" name="scinqname" size="20"></p>
<p align="left">
<u>
<b>Inquirer Contact Information</b></u></p>
<p align="left"><input type="text" name="scphone" size="20">
<b>Telephone Number </b> </p>
<p align="left"><input type="text" name="scaddr" size="20">
<b> Mailing Address </b></p>
<p align="left"><input type="text" name="sccity" size="20">
<b>City</b></p>
<p align="left"><input type="text" name="scstate" size="20">
<b>State</b></p>
<p align="left"><input type="text" name="sczip" size="20">
<b> Zip</b></p>
<p align="left"><input type="text" name="scemail" size="20">
<b> Email Address</b></p>
<p align="left">
<b><u>Description/Topic of Inquiry</u>
<u>Description of Response or Referral</u></b></p>
<p align="left">
<select size="1" name="sctopic">
<%
' Only display records if there are records in the recordset
If NOT rstemp.EOF then
'Loop through the recordset until ther are no more records
Do While Not rstemp.EOF
%> <option value="<%=rstemp("Topic")%>"><%=rstemp("Topic")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rstemp.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rstemp.Close
%> </select>
<select size="1" name="scresponse">
<%
' Only display records if there are records in the recordset
If NOT rstemp.EOF then
'Loop through the recordset until ther are no more records
Do While Not rstemp.EOF
%> <option value="<%=rstemp("Response")%>"><%=rstemp("Response")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rstemp.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rstemp.Close
%></select></p>
<p align="left">
<input type="text" name="sctopother" size="20"> <b>Other</b>
<input type="text" name="screspother" size="20"> <b>Other </b> </p>
<p align="left">
<input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
<p align="left">
</p>
</form>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults" u-file="_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="1"><!--webbot bot="SaveResults" endspan i-checksum="43406" --><p align="left">
</p>
</form>
</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></body></html>
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 14:59:55
Also line 37 is where the error is which is the line with
conntemp.open myDSN
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 15:34:59
Yes
| |
|
|
|
rdouglass
Posts: 9272
From: Biddeford, ME USA
Status: offline
|
RE: ODBC error - 6/10/2005 15:47:00
Here is a somewhat different one I tested from IIS 6 running on 1 machine to SQL Server 2000 running on another. This absolutely worked for me:
myDSN = "Driver={SQL Server};Server=nml-chama;Database=Public_Inquiry;Uid=sqlquery;Pwd=querysql;"
Of course I used my own environmental variables but it did work. This code is assuming:
1. The SQL Server's name is "nml-chama"
2. The database name is "Public_Inquiry"
3. A user authorized to do SELECT operations is named "sqlquery"
4. and has a password of "querysql"
Also, please verify the SQL you're using. As I stated before, it looks very wrong as well as the typo's (rstempemp, etc.)
That any better?
_____________________________
Don't take you're eye off your final destination.
ASP Checkbox Function Tutorial.
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 17:28:09
Ok so that didn't work but my Administrator did get the connection to work. Only now I get this error. Sorry for being such a pain. I'd just like to get it to display so I can work on it. Thanks for your help.
The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.
--------------------------------------------------------------------------------
Please try the following:
Click the Refresh button, or try again later.
Open the internal home page, and then look for links to the information you want.
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services
--------------------------------------------------------------------------------
Technical Information (for support personnel)
Error Type:
Active Server Pages, ASP 0126 (0x80004005)
The include file 'http://internal/Queries/_fpclass/fpdbform.inc' was not found.
/Queries/PublicInquiriesForm.asp, line 193
Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; FunWebProducts; .NET CLR 1.1.4322)
Page:
GET /Queries/PublicInquiriesForm.asp
Time:
Friday, June 10, 2005, 3:16:57 PM
More information:
Microsoft Support
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 17:29:35
Here's the code. I'm sure that will help.
<%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Cannot create connection"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Cannot create record set"
fp_conn.Open Application("Publ_Inq_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "Inquiry", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"
fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(1)
Dim arFormDBFields0(1)
Dim arFormValues0(1)
arFormFields0(0) = "scaddr"
arFormDBFields0(0) = "Inquirer_address"
arFormValues0(0) = Request("scaddr")
arFormFields0(0) = "scinqname"
arFormDBFields0(0) = "Inquirer_name"
arFormValues0(0) = Request("scinqname")
arFormFields0(0) = "screspother"
arFormDBFields0(0) = "Response_other"
arFormValues0(0) = Request("screspother")
arFormFields0(0) = "scemail"
arFormDBFields0(0) = "Inquirer_email"
arFormValues0(0) = Request("scemail")
arFormFields0(0) = "scphone"
arFormDBFields0(0) = "Inquirer_phone"
arFormValues0(0) = Request("scphone")
arFormFields0(0) = "scresponse"
arFormDBFields0(0) = "Response"
arFormValues0(0) = Request("scresponse")
arFormFields0(0) = "sctopic"
arFormDBFields0(0) = "Topic"
arFormValues0(0) = Request("sctopic")
arFormFields0(0) = "sczip"
arFormDBFields0(0) = "Inquirer_zip"
arFormValues0(0) = Request("scinqname")
arFormFields0(0) = "scformat"
arFormDBFields0(0) = "Format"
arFormValues0(0) = Request("scformat")
arFormFields0(0) = "sctopother"
arFormDBFields0(0) = "Topic_other"
arFormValues0(0) = Request("sctopother")
arFormFields0(0) = "scdiv"
arFormDBFields0(0) = "Division"
arFormValues0(0) = Request("scdiv")
arFormFields0(0) = "scstate"
arFormDBFields0(0) = "Inquirer_state"
arFormValues0(0) = Request("scstate")
arFormFields0(0) = "sccity"
arFormDBFields0(0) = "inquirer_city"
arFormValues0(0) = Request("sccity")
arFormFields0(0) = "sccatgry"
arFormDBFields0(0) = "Category"
arFormValues0(0) = Request("sccatgry")
arFormFields0(0) = "scname"
arFormDBFields0(0) = "Name"
arFormValues0(0) = Request("scname")
arFormFields0(0) = "scdate"
arFormDBFields0(0) = "Date"
arFormValues0(0) = Request("scdate")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"
fp_rs.Close
fp_conn.Close
FP_FormConfirmation "text/html; charset=windows-1252",_
"Form Confirmation",_
"Thank you for submitting the following information:",_
"PublicInquiriesForm.asp",_
"Return to the form."
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<head>
<title>Public Iquiry Query</title>
<!--[if gte mso 9]><xml>
<mso:CustomDocumentProperties>
<mso:Approval_x0020_Level msdt:dt="string"></mso:Approval_x0020_Level>
<mso:Categories msdt:dt="string">Business</mso:Categories>
<mso:Assigned_x0020_To msdt:dt="string"></mso:Assigned_x0020_To>
</mso:CustomDocumentProperties>
</xml><![endif]-->
<meta name="Microsoft Border" content="b, default">
</head>
<%
Dim con
Dim rst
Dim strSQL
Dim strParm1
Dim strParm2
Const adOpenKeyset = 0
Const adLockOptimistic = 1
'Create the objects
Set con = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
' Open the connection to the Employee In or Out Database
con.Open "PubInq", "sqlquery", "querysql"
' Create the SQL Query String
' Employee Query String
strSQL = " select Name, Division, Inquirer_Category, Inquiry_Format, Topic, Response " & _
" from Employees, Division, Inquirer_Category, Inquiry_Format, Topic, Response " & _
" Order by Name "
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, con, adOpenKeyset, adLockOptimistic
%>
<p align="center"><strong><font size="5">Public Inquiries Entry Form</font></strong></p>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveDatabase" suggestedext="asp" u-asp-include-url="http://internal/Queries/_fpclass/fpdbform.inc" s-dataconnection="Pub_Inq" s-recordsource="Inquiry" s-form-fields="scaddr scinqname screspother scemail scphone scresponse sctopic sczip scformat sctopother scdiv scstate sccity sccatgry scname scdate" s-form-dbfields="Inquirer_address Inquirer_name Response_other Inquirer_email Inquirer_phone Response Topic Inquirer_zip Format Topic_other Division Inquirer_state inquirer_city Category Name Date" --><p align="left">
<u><b>Date Received</b> </u><p align="left">
<input type="text" name="scdate" size="20"> (YYYYMMDD)<p align="left">
<u><b>Staff name & Division Receiving Inquiry</b></u></p>
<p align="left">
<select size="1" name="scname">
<%
' Only display records if there are records in the recordset
If NOT rst.EOF then
'Loop through the recordset until ther are no more records
Do While Not rst.EOF
%> <option value="<%=rst("Name")%>"><%=rst("Name")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rst.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rst.Close
%>
</select> <b>Name</b>
<select size="1" name="scdiv">
<%
' Only display records if there are records in the recordset
If NOT rst.EOF then
'Loop through the recordset until ther are no more records
Do While Not rst.EOF
%> <option value="<%=rst("Division")%>"><%=rst("Division")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rst.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rst.Close
%>
</select> <b>Division</b> </p>
<p align="left">
<b><u>Inquirer Category</u>
<u>Inquiry Format</u></b></p>
<p align="left">
<select size="1" name="sccatgry">
<%
' Only display records if there are records in the recordset
If NOT rst.EOF then
'Loop through the recordset until ther are no more records
Do While Not rst.EOF
%> <option value="<%=rst("Inquirer_Category")%>"><%=rst("Inquirer_Category")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rst.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rst.Close
%>
</select> <select size="1" name="scformat">
<%
' Only display records if there are records in the recordset
If NOT rst.EOF then
'Loop through the recordset until ther are no more records
Do While Not rst.EOF
%> <option value="<%=rst("Inquiry_Format")%>"><%=rst("Inquiry_Format")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rst.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rst.Close
%>
</select><b> </b></p>
<p align="left">
<u><b>Name of Inquirer</b></u></p>
<p align="left">
<input type="text" name="scinqname" size="20"></p>
<p align="left">
<u>
<b>Inquirer Contact Information</b></u></p>
<p align="left"><input type="text" name="scphone" size="20">
<b>Telephone Number </b> </p>
<p align="left"><input type="text" name="scaddr" size="20">
<b> Mailing Address </b></p>
<p align="left"><input type="text" name="sccity" size="20">
<b>City</b></p>
<p align="left"><input type="text" name="scstate" size="20">
<b>State</b></p>
<p align="left"><input type="text" name="sczip" size="20">
<b> Zip</b></p>
<p align="left"><input type="text" name="scemail" size="20">
<b> Email Address</b></p>
<p align="left">
<b><u>Description/Topic of Inquiry</u>
<u>Description of Response or Referral</u></b></p>
<p align="left">
<select size="1" name="sctopic">
<%
' Only display records if there are records in the recordset
If NOT rst.EOF then
'Loop through the recordset until ther are no more records
Do While Not rst.EOF
%> <option value="<%=rst("Topic")%>"><%=rst("Topic")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rst.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rst.Close
%>
</select>
<select size="1" name="scresponse">
<%
' Only display records if there are records in the recordset
If NOT rst.EOF then
'Loop through the recordset until ther are no more records
Do While Not rst.EOF
%> <option value="<%=rst("Response")%>"><%=rst("Response")%></option>
<%
'If you forget this next statement, you will be stuck in a loop
rst.MoveNext
Loop
Else
%> <option value="Error">No records Found</option>
<%
End If
rst.Close
%>
</select></p>
<p align="left">
<input type="text" name="sctopother" size="20"> <b>Other</b>
<input type="text" name="screspother" size="20"> <b>Other </b> </p>
<p align="left">
<input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
<p align="left">
</p>
</form>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults" u-file="_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="1"><!--webbot bot="SaveResults" endspan i-checksum="43406" --><p align="left">
</p>
</form>
</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></body></html><!--webbot bot="SaveDatabase" endspan i-checksum="27767" -->
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 17:30:25
Yeah it is there where it says it is. It just can't find it for some reason.
| |
|
|
|
seth
Posts: 312
From: canada
Status: offline
|
RE: ODBC error - 6/10/2005 17:39:11
can the permission be wrong on _fpclass folder or fpdbform.inc file?
Just a thought
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 17:44:52
I checked that out and it says under security it can be accessed by Everyone. It is not a shared folder, however. If that makes a difference.
| |
|
|
|
seth
Posts: 312
From: canada
Status: offline
|
RE: ODBC error - 6/10/2005 17:48:11
is the file set to read only?
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/10/2005 18:00:53
No it isn't.
| |
|
|
|
rrnml
Posts: 197
Joined: 9/20/2004
Status: offline
|
RE: ODBC error - 6/13/2005 12:49:15
I have a question. I have this file in a separate place.
http://internal/Queries/_fpclass/fpdbform.inc
So why was it placed in the code also? I assume FP put it there automatically. Can somebody explain? Thanks.
| |
|
 New Messages |
 No New Messages |
 Hot Topic w/ New Messages |
 Hot Topic w/o New Messages |
 Locked w/ New Messages |
 Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|
Printable Version 
k¥ 
)
