<% 'Set Mail = server.createobject("CDONTS.Newmail") 'Mail.From = request.QueryString("Name") & "<" & request.QueryString("Email") & ">" 'Mail.To = "jutete@sardc.net" 'Mail.Subject = "Comment: " & request.QueryString("Title") 'Mail.Body = request.QueryString("Comments") 'Mail.Send 'Set Mail = Nothing Set adoCon = Server.CreateObject("ADODB.Connection") set RS = Server.CreateObject("ADODB.Recordset") strCon = "DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath("guest_coms") strSql= "INSERT INTO Comments (Name, Email, URL, Country, Title, Comments)" strSql=strSql & "VALUES" strSql=strSql & "('" & request.querystring("Name") & "'" strSql=strSql & ",'" & request.querystring("Email") &"'" strSql=strSql & ",'" & request.querystring("URL") &"'" strSql=strSql & ",'" & request.querystring("Country") &"'" strSql=strSql & ",'" & request.querystring("Title") &"'" strSql=strSql & ",'" & request.querystring("Comms") &"')" adoCon.open strCon adoCon.Execute(strSql) set RS=nothing Response.write("The following comments:

") %>

Name	<% = request.querystring("Name")%>
Email	<% = request.querystring("Email")%>
URL	<% = request.querystring("URL")%>
Country	<% =request.querystring("Country")%>
Comments	<% =request.querystring("Comms")%>

have been submitted.

Thanks for the comments!!