/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
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
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408847
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.