pepss wrote in dk.edb.internet.webdesign.serverside.asp:
> "mik Thomsen" <mwt@image.dk> skrev
> > jeg har lavet følgende script:
> >
> > response.write "<b>E-mail :</b>" "<a href="Mailto:"&
> > rs("email")">&""</a>" & "<hr>"
>
> nok ikke den mest elegante måde at gøre det på men så kan du da arbejde
> vider med det der fra!
> %><b>E-mail:</b> <a href=mailto:<% Response.Write rs("email)
%></a><hr><%
>
> --
> pepss
> den ordblinde der prøver at blive webdesigner
>
Hej pepss
du skal se hele scriptet, for den kommer stadig med en fejl, siger:
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0409)
Strengkonstanten er uafsluttet
/markedpladsen.asp, line 46, column 25
Response.Write rs("email)
------------------------^
MIT SCRIPT
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/log/database.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from marked Where emne = '"& Request.Form("emne") &"'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen Fornavn
Response.Write "" &"<h2>" &"<font color='#FF000000'>" &
rs("overskrift") &"</font>" &"</h2>"
Response.Write "<dt><b>Indhold: </b></dt>" & rs("indhold")
response.write "<dt><b>Pris : </b></dt> " & rs("pris") &" " &"kr."
response.write "<dt><b>Navn : </b></dt> " & rs("navn") & "
" & "<b>Tlf. nr.:</b>" & rs("telefon") & " "
%><b>E-mail:</b> <a href=mailto:<% Response.Write rs("email)
%></a><hr><%
' 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
Conn.Close
Set Conn = Nothing
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials