asp connection - Softwareontwikkeling

maandag 16 september 2002 17:04

Acties:

Verwijderd

Topicstarter

Ik heb de volgende pagina's opgezet in asp:

\connection\verbindingmedic.asp

<%
Set Conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("\mccane\db\HPmedics.mdb") & ";" & _
"Persist Security Info=False"
Conn.Open(sConnection)
%>

in \db directory staat de database HPmedics.mdb

Vervolgens deze gemaakt en deze staat gewoon in default directory

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim rsMedic
Dim rsMedic_numRows

Set rsMedic = Server.CreateObject("ADODB.Recordset")
rsMedic.ActiveConnection = MM_verbindingMedic_STRING
rsMedic.Source = "SELECT * FROM Members"
rsMedic.CursorType = 0
rsMedic.CursorLocation = 2
rsMedic.LockType = 1
rsMedic.Open()

rsMedic_numRows = 0
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<html>
<head>
<title>Members</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body background="AchtegrondHPM.gif" text="#FFFF00">
<p><strong><font color="#FFFF00" size="5">Hollow Point NL Medics Members</font></strong></p>
<table width="75%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td><A HREF="Detailpagina.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsMedic.Fields.Item("Members").Value %>"><%=(rsMedic.Fields.Item("Members").Value)%></A></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<p> </p>
</body>
</html>
<%
rsMedic.Close()
Set rsMedic = Nothing
%>

Waarom doet i het niet?
adres http://www30.brinkster.com/mccane/memberstwee.asp

maandag 16 september 2002 17:10

Acties:

Altaphista

1. check manual, 2. ask

ASP:

1
2
3

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/mccane/memberstwee.asp, line 8

hoe ziet line 8 eruit?

Je gaat het pas zien als je het doorhebt.

maandag 16 september 2002 17:31

Acties:

Verwijderd

Topicstarter

van welke file? Ik heb 2 files voor de connectie van asp met html en die staan beide bovenaan pagina.

maandag 16 september 2002 18:13

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

Waarom hij het niet doet?

Regel 8 : rsMedic.ActiveConnection = MM_verbindingMedic_STRING

Dit betekent: Vul de property ActiveConnection van de instance rsMedic met de variabele MM_verbindingMedic_STRING
Dit is een verwijzing naar de variabele MM_verbindingMedic_STRING
Deze variabele MOET een connectionstring bevatten.
Waar wordt deze variabele in jouw code gevuld met een connectionstring?

In je vorige topic stond onder andere in de sluitmessage dat het misschien een idee is om enkele tutorials door te nemen; hier blijf ik bij, want je hebt volgens mij nog een beetje moeite met de basisbegrippen van programmeren in ASP / VBScript, zo niet met programmeren in het algemeen.

Gewoon eenvoudig beginnen met

code:

1	Response.Write "Hello World"

en

code:

1
2
3

Dim strTekst
strTekst = "Hello World"
Response.Write strTekst

Digitaal onderwijsmateriaal, leermateriaal voor hbo

maandag 16 september 2002 23:01

Acties:

robjanssen

Software Developer

Probeer dit eens:

code:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("\mccane\db\HPmedics.mdb") & ";" & _
"Persist Security Info=False"
Conn.Open(sConnection)
%>


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/verbindingMedic.asp" -->
<%
Dim Conn
Dim strSQL
Dim rsMedic

strSQL = "SELECT * " _
            & "FROM Members"
Set rsMedic = Server.CreateObject("ADODB.Recordset")
rsMedic.Open strSQL, Conn, 3, 1

dinsdag 17 september 2002 08:47

Acties:

D2k

zie gorgi_19
begin bij hello world
en niet gelijk met databases
zolang je de basics van een taal niet beheerst zal dit deel ook niet werken

Doet iets met Cloud (MS/IBM)