Article ID: 165479
Article Last Modified on 1/19/2007
Query: EnterShipper
-------------------
Type: Select Query
Field: CompanyName
Table: Shippers
Parameter Data Type
----------------------------
[EnterName] Text
159682 ACC97: "Data Source Name Not Found" Err Msg Opening Web Page
162975 ACC97: Permissions Necessary to View HTML, IDC, and ASP Files
<%
sql = "SELECT Shippers.CompanyName FROM Shippers "
If cstr(Param) <> "" And cstr(Data) <> "" Then
sql = sql & " WHERE [" & cstr(Param) & "] = " & cstr(Data)
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>
Change this part of the script to the following:
<%
sql = "INSERT into Shippers (CompanyName) values ('" &_
Request.QueryString("[EnterName]") & "');"
conn.execute sql
sql = "SELECT Shippers.CompanyName FROM Shippers"
If cstr(Param) <> "" And cstr(Data) <> "" Then
sql = sql & " WHERE [" & cstr(Param) & "] = " & cstr(Data)
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>
http://<servername>/ASPsamp/EnterShipper.HTML
SELECT * from Customers WHERE False
159682 ACC97: "Data Source Name Not Found" Err Msg Opening Web Page
nav_btn_MoveCancelUpdate, nav_btn_MoveDeleteRecord,
nav_btn_MoveCommitRecord, nav_btn_MoveLastRecord,
nav_btn_MoveNextRecord, nav_btn_MovePrevRecord, and
nav_btn_MoveFirstRecord.
Sub UpdateRefreshBtn()
nav_btn_MoveCancelUpdate.Caption = "Cancel"
End Sub
Delete the line between the Sub and the End Sub lines so that it looks
as follows:
Sub UpdateRefreshBtn()
End Sub
http://<servername>/ASPsamp/EnterShipper.HTML
Additional query words: dynamic update intranet Internet
Keywords: kbhowto kbinterop kbprogramming KB165479