Re: ASP Database Help

Thanks again to everyone who responded. I actually ended up remaking the
whole code because of numerous errors. Thanks again for everyones help.

Matthew

----- Original Message -----
From: "Joellyn Whitehead" <JWhitehead(at)ilchildcare.org>
To: "'Matthew Ohlman'" <matthew(at)ohlman.com>
Sent: Tuesday, July 30, 2002 8:54 AM
Subject: RE: ASP Database Help


> Hi Matthew,
>
> I don't see an If statement that corresponds with your End If.  Try taking
> out that End If perhaps?
>
> Joellyn
>
> -----Original Message-----
> From: Matthew Ohlman [mailto:matthew(at)ohlman.com]
> Sent: Tuesday, July 30, 2002 1:36 AM
> To: HWG-basics(at)hwg.org
> Subject: Re: ASP Database Help
>
>
> Thanks to all who responded. I have another problem.
> Here is my new error:
>
> ----------
> Microsoft VBScript compilation error '800a0400'
>
> Expected statement
>
> /guestbook.asp, line 28
>
> End If
> ^
> -----------
>
> I do have a little experince with ASP, but not too much.
>
> I have taken out some things from my last code posting, so here is my new
> code:
>
> ------
> <.%
>  set conn = server.createobject("ADODB.connection")
>  DSNtemp = "DRIVER={Microsoft Access Driver (*.mdb)};"
>  DSNtemp = dsntemp & "DBQ=" & server.mappath("guestbook.mdb") & "}"
>
>  sqlstmt = "SELECT * from linksdata ORDER BY date DESC"
>  set rs = Server.CreateObject("ADODB.Recordset")
> rs.open sqlstmt, conn, 3, 3
>
>              name = rs("name")
>              date = rs("date")
>              email = rs("email")
>              email = "<a href='malto:" & email & "'>" & website & "</a>"
>              website = rs("website")
>              website = "<a href='" & website & "'>" & website & "</a>"
>              comments = rs("comments")
>              webname = rs("WebName")
>
>  %.>
> <.%
>   rs.MoveNext
>
> End If
>   Next
>
>
>  %.>
> ---------
>
> Thanks for any help!
>
> Matthew
>

HTML: hwg-basics mailing list archives, maintained by Webmasters @ IWA