ככה
set oCmd = Server.CreateObject("ADODB.COMMAND") oCmd.ActiveConnection = oConn oCmd.CommandText = "InsertProductInterest" oCmd.CommandType = 4 ´Product Param 1 set oParam=oCmd.CreateParameter("ContactEMail") oParam.Type = adVarChar oParam.size=50 oParam.Value=request.form("FmsgReplyTo") oCmd.Parameters.Append oParam ´Product Param 2 set oParam=oCmd.CreateParameter("DateSent") oParam.Type = adDBTimeStamp oParam.size=8 oParam.Value=dtmDate oCmd.Parameters.Append oParam ´Product Param 3 set oParam=oCmd.CreateParameter("ProductName") oParam.Type = adVarChar oParam.size=250 oParam.Value=(StrMsgForm(i)) oCmd.Parameters.Append oParam oCmd.Execute
