/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
HELP!!! ASP problem
Fra : Johnny Emde Jensen


Dato : 16-11-02 15:55

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



 
 
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste