För står inte varför det blir fel. Men det blir error när jag försöker lägga in en post.

<code>
Dim objConn As New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath(".\db\textad.mdb;"))
Dim objCmd As OleDbCommand
Dim objRdr As OleDbDataReader

objCmd = New OleDbCommand("Select WebSiteUrl from Users Where UserID =" & session("UserID") &"", objConn)
objConn.Open()
objRdr = objCmd.ExecuteReader()
if objRdr.Read()
else
'error
end if
Dim WebSite
WebSite = objRdr.Item("WebSiteUrl")
objRdr.Close()
objConn.Close()

objCmd = New OleDbCommand("INSERT INTO Ad (ByUser, Type, Headline, Text, WebSiteUrl,
BgColor, FrameColor) VALUES (@ByUser, @Type, @Headline, @Text, @WebSiteUrl, @BgColor,
@FrameColor)", objConn)
objCmd.Parameters.Add("@ByUser", session("UserID"))
objCmd.Parameters.Add("@Type", Request.Form("Format4"))
objCmd.Parameters.Add("@Headline", Request.Form("Hed4"))
objCmd.Parameters.Add("@Text", Request.Form("Txt4"))
objCmd.Parameters.Add("@WebSiteUrl", WebSite)
objCmd.Parameters.Add("@BgColor", Request.Form("bgcolor"))
objCmd.Parameters.Add("@FrameColor", Request.Form("framecolor"))
objConn.Open()
objCmd.ExecuteNonQuery()
objConn.Close()
</code>

Hittade felet själv. Text är ett reserverat ord och därför måste man använda:
INSERT INTO Ad (ByUser, Type, Headline, [Text], WebSiteUrl, BgColor, FrameColor)

PS. Jag älskar google!