Hej
Jeg er helt ny her.....
Jeg skal lave en database hvor man skal kunne rette.
Her er links siden, den virker godt nok.
<%@Language=VBScript%>
<%
' åben Databaseforbindelse
Option Explicit
Dim myconn, strSQL, rs
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DSN=Northwind"
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<TITLE>opgave4A</TITLE>
<LINK REL="Stylesheet" HREF="style.css" Style="text/css">
</HEAD>
<BODY>
<!--#include virtual="include/include.htm"-->
<h1 align="center">Oversigt over Kunder</h1><br>
<%
' SQL forespørgsel
strSQL = "Select * from kunder order by firmanavn"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = myConn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Dim strlink, strfirma
Do
' lav et link til dbret.asp med Id-værdien i URL
'Strfirma = rs("firmanavn")
strLink = "<a href='dbret4b.asp?firmanavn=" & rs("firmanavn") & "'>" &
rs("firmanavn") & "</a>"
' Liste med links
Response.Write "<li>" & strLink & "</li>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
myConn.Close
Set myConn = Nothing
%>
</TABLE>
</body>
</html>
Her er siden hvor man skal kunne rette..
Den virker ikke, den skriver :
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der
mangler en operator. i forespørgselsudtrykket "firmanavn=Blondel père et
fils".
/opgaver/dbret4b.asp, linje 23
<%@Language=VBScript%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<TITLE>Ret i database</TITLE>
<LINK REL="Stylesheet" HREF="style.css" Style="text/css">
</HEAD>
<BODY>
<dl>
<%
' åben Databaseforbindelse
Dim myconn, strSQL, rs
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DSN=Northwind"
' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From Kunder Where firmanavn=" &
Request.Querystring("firmanavn")
Set rs = myConn.Execute(strSQL)
' Skriv personens data
%>
<h1 align="center">Ret / slet</h1>
<table border="0" width="50%" align="center">
<tr>
<td width="50%" align="right">Firmanavn</td>
<td width="50%"><%Response.Write "<input type='text' name='firma'
size='20' value='" & rs("firmanavn") & "'>"%></td>
</tr>
<tr>
<td width="50%" align="right">Kontaktperson</td>
<td width="50%"><%Response.Write "<input type='text' name='firma'
size='20' value='" & rs("kontaktperson") & "'>"%></td>
</tr>
<tr>
<td width="50%" align="right">Stilling</td>
<td width="50%"><%Response.Write "<input type='text' name='firma'
size='20' value='" & rs("stilling") & "'>"%></td>
</tr>
<tr>
<td width="50%" align="right">Adresse</td>
<td width="50%"><%Response.Write "<input type='text' name='firma'
size='20' value='" & rs("adresse") & "'>"%></td>
</tr>
<tr>
<td width="50%" align="right">Bynavn</td>
<td width="50%"><%Response.Write "<input type='text' name='firma'
size='20' value='" & rs("bynavn") & "'>"%></td>
</tr>
<tr>
<td width="50%" align="right">område</td>
<td width="50%"><%Response.Write "<input type='text' name='firma'
size='20' value='" & rs("område") & "'>"%></td>
</tr>
<tr>
<td width="50%" align="right">Postnr.</td>
<td width="50%"><%Response.Write "<input type='text' name='firma'
size='20' value='" & rs("postnr") & "'>"%></td>
</tr>
<tr>
<td width="50%" align="right">land</td>
<td width="50%"><%Response.Write "<input type='text' name='firma'
size='20' value='" & rs("land") & "'>"%></td>
</tr>
<tr>
<td width="50%" align="right">telefon</td>
<td width="50%"><%Response.Write "<input type='text' name='firma'
size='20' value='" & rs("telefon") & "'>"%></td>
</tr>
<tr>
<td width="50%" align="right">fax</td>
<td width="50%"><%Response.Write "<input type='text' name='firma'
size='20' value='" & rs("fax") & "'>"%></td>
</tr>
</table>
</dl>
</body>
</html>
<%
myConn.Close
Set myConn = Nothing
%>
Med venlig hilsen
Lundberg