第一个来支持下~~~~

我没用过DW连接数据库，一般个人不喜欢这样方法，也不推荐这样使用。
字符连接以前版本好象不支持相对路径，只支持绝对路径。你可以试试，把Server.MapPath去掉，换成绝对路径再试。

DSN需要服务商为你设置，自己是无法设置ODBC链接的，所以一般使用均用字符串连接。如果服务器是自己可以管理的，则使用DSN是好方法。

该帖子上已经有了，再复述一下：
连接字符串应该用专门一文件保存，如conn.asp，其实该文件的目的就是保存这个
strConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=F:\myasp\Mymdb.mdb"

我的做法，在该文件中
<%
dbPath = Server.MapPath("/myasp/mymdb.mdb")
strConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dhPath
%>

其它文件用includ包含进来，如：
<!--#include file="conn.asp"-->

<%
conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection
%>

在调试时，只要把dbPath换成绝对路径，就可在本机用了。

<!--#include file="head.asp" -->
<%
if request("action") = "send" then
    frommail = Trim(Request.Form("frommail"))
    tomail = Trim(Request.Form("tomail"))
    if Trim(Request.Form("mailsubject"))<>"" then
        mailsubject = Trim(Request.Form("mailsubject"))
    else
        mailsubject = Trim(Request.Form("mailsubject1"))
    end if
    mailbody = Trim(Request.Form("mailbody"))
    
    if tomail<>"" then
        Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
        objCDOMail.From = frommail
        objCDOMail.To = tomail
        objCDOMail.Subject = mailsubject
        objCDOMail.Body = mailbody
        objCDOMail.Send
        Set objCDOMail = Nothing
    else
        Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
        objCDOMail.From = frommail
        sql="select mail from mail"
        set rs=conn.execute(sql)
        Response.Write("正在邮件群发.................." )
        do while not rs.eof
            objCDOMail.To = rs(0)
        RS.MoveNext
        Loop
        rs.close
        objCDOMail.Subject = mailsubject
        objCDOMail.Body = mailbody
        objCDOMail.Send
        Set objCDOMail = Nothing
    end if
    Response.Write "<script>alert(""发送成功"");location.href=""main.asp"";</script>"
    Response.End
end if
%>
<form name="sendmail" action="?action=send" method="post" >

<table border="0" cellspacing="1" cellpadding="4" width="80%" align="center" bgcolor="#797161">
<tr bgcolor="#ffcf00">
<td height="30" colspan="2" align="center">发 送 邮 件</td>
</tr>
<tr bgcolor="#f6f6f6">
<td height="25" width="20%" bgcolor="#f6f6f6">发信人地址：</td>
<td height="25" width="80%">
<input type="text" name="frommail" value="<%=frommail%>">
</td>
</tr>
<tr bgcolor="#f6f6f6">
<td height="25" width="20%" bgcolor="#f6f6f6">收信人地址：</td>
<td height="25" width="80%">
<input type="text" name="tomail">
<br>
<br>
（如果为空，从数据库取地址群发！） </td>
</tr>
<tr bgcolor="#f6f6f6">
<td height="25" width="20%" bgcolor="#f6f6f6">信件标题：</td>
<td height="25" width="80%">
<input type="text" name="mailsubject" size="50">
             <input type="hidden" name="mailsubject1" value="<%=mailsubject%>">
<br>
<br>
（如果为空，则显示“<font color="red"><%=mailsubject%></font>”！） </td>
</tr>
<tr bgcolor="#f6f6f6">
<td height="25" width="20%" bgcolor="#f6f6f6">信件内容：</td>
<td height="25" width="80%">
<textarea name="mailbody" cols="50" rows="8"><%=mailbody%></textarea>
<br>
<br>
</td>
</tr>
<tr bgcolor="#f6f6f6">
<td height="10" colspan="2" align="center"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="submit" name="Submit" value="发送">
<input type="reset" name="Submit" value="取消">
</td>
</tr>
</table>
</form>

<!--#include file="copy.asp" -->


错误类型：
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串
/mail/main.asp, 第 14 行

我在本机上测试，也有问题啊！！！！！！！！！！！

蓝鲸说的对，付费空间就不会出错了。
但我发了几封邮件，都没收到，难道对免费邮箱不支持吗？

小弟下了动网错误类型：
Microsoft VBScript 运行时错误 (0x800A005E)
无效使用 Null: 'Replace'
/dvbbs7.0.0/dvbbs7.0.0/toplist.asp, 第 144 行


浏览器类型：论坛，点击用户列表，就出现以下错误：