Hej NG
Jeg har købt mig en del bøger for at lege lidt med ASP.
Når jeg kører nedenstående eks. får jeg fejl hver gang der i linierne
benyttes ADODB konstanter, såsom
adUseClient..... Da jeg prøvede at indlæse nedenstående asp file i InterDev
spurgte den om at få FrontPage 2000 SR-1 installation CD - den satte jeg i
men fik en fejl - så jeg tror ikke der blev installeret noget???
Nogen der har bud??
<%@ Language=VBScript %>
<% option explicit %>
<%Response.Buffer=true%>
<%
dim submitted
dim tablename
dim R
dim conn
submitted=(Request("Submitted") ="True")
if submitted then
Response.Redirect "showTable.asp?TableName=" & Request("TableName")
else
set conn = server.CreateObject("ADODB.Connection")
conn.ConnectionString="driver=sql server;server=xxxxxxx;database=pubs;user
id=?????;password=?????"
conn.CursorLocation=aduseclient
<<<<<<------------------------------------------------------ Fejl
conn.Mode= adModeRead
<<<<<<---------------------------------------------------------------- Fejl
conn.Open
set R = Server.CreateObject("ADODB.Recordset")
R.CursorLocation=aduseclient
call R.Open("SELECT Name FROM SysObjects WHERE Type='U' ORDER BY Name
ASC",conn,adOpenForwardOnly,adLockReadOnly,adCmdText) <<<<<--------------
Fejl
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form name="frmTable" method="post" action="selectTable.asp?Submitted=True">
<table align="center" border="1" width="80%" cols="2">
<tr>
<td align="center" colspan="2" bgcolor="#FF0000">
Select Table
</font>
</td>
</tr>
<tr>
<td align="left" colspan="2" bgcolor="#FFFFFF">
Select a table name from the list, then click the "Display Table" button.
</td>
</tr>
<tr>
<td align="right" valign="top" width="20%">
<b>Table</b>:
</td>
<td align="left" valign="top" width="80%">
<select name="TableName">
<%
do while not R.EOF
Response.Write "<option "
if R("Name").value = tableName then
response.write "selected "
end if
Response.write "value='" & R("Name") & "'>" & R("Name") & "</option>"
R.movenext
loop
R.close
set R = nothing
conn.Close
set conn=nothing
%>
</select>
</td>
</tr>
<tr>
<td align="center" valign="bottom" colspan="2">
<input type="submit" value="Display Table">
</td>
</tr>
</table>
</form>
</BODY>
</HTML>
--
Med venlig hilsen
Johnny E Jensen