Dados em Banco de Dados

[VENAL 0]

Pessoal, já quebrei bastante a cabeça tentando inserir dados inseridos em um formulario em um banco de dados access através de uma pagina asp, mas não consigui, depois tentei codigos prontos baixei varios para estudar só que quando eu testo não funciona, porque será que não dá certo, ler do banco até consigo fazer agora colocar os dados no mesmmo tá ralado.

 

Por exemplo

 

http://www.cbm.rn.gov.br/teste/submit.asp

 

o que acontece com este link.

 

<!--#include file="Connections/connDUnews.asp" -->

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

<%

'****************************************************************************

************

'** Copyright Notice

'** Copyright 2003 DUware All Rights Reserved.

'** This program is free software; you can modify (at your own risk) any part of it

'** under the terms of the License that accompanies this software and use it both

'** privately and commercially.

'** All copyright notices must remain in tacked in the scripts and the

'** outputted HTML.

'** You may use parts of this program in your own private work, but you may NOT

'** redistribute, repackage, or sell the whole or any part of this program even

'** if it is modified or reverse engineered in whole or in part without express

'** permission from the author.

'** You may not pass the whole or any part of this application off as your own work.

'** All links to DUware and powered by logo's must remain unchanged and in place

'** and must remain visible when the pages are viewed unless permission is first granted

'** by the copyright holder.

'** This program is distributed in the hope that it will be useful,

'** but WITHOUT ANY WARRANTY; without even the implied warranty of

'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER

'** WARRANTIES WHETHER EXPRESSED OR IMPLIED.

'** No official support is available for this program but you may post support questions at: -

'** http://www.duware.com/support

'****************************************************************************

************

%>

<%

' *** Edit Operations: declare variables

 

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

 

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

 

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

 

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Request.QueryString

End If

 

' boolean to abort record edit

MM_abortEdit = false

 

' query string to execute

MM_editQuery = ""

%>

 

<%

' *** Insert Record: set variables

 

If (CStr(Request("MM_insert")) = "submit") Then

 

MM_editConnection = MM_connDUnews_STRING

MM_editTable = "NEWS"

MM_editRedirectUrl = "default.asp"

MM_fieldsStr = "NEWS_TYPE|value|NEWS_NAME|value|NEWS_URL|value|NEWS_DESCRIPTION|value|NEWS_

DATED|value|NEWS_APPROVED|value|NEWS_RATED|value|NEWS_RATES|value"

MM_columnsStr = "NEWS_TYPE|none,none,NULL|NEWS_NAME|',none,''|NEWS_URL|',none,''|NEWS_DESCRIPTION|',none,''|NEWS_DATED|',none,NULL|NEWS_APPROVED|none,none,NULL|NEWS_RATED|none,none,NULL|NEWS_RATES

|none,none,NULL"

 

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

 

' set the form values

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))

Next

 

' append the query string to the redirect URL

If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

 

End If

%>

 

<%

' *** Insert Record: construct a sql insert statement and execute it

 

Dim MM_tableValues

Dim MM_dbValues

 

If (CStr(Request("MM_insert")) <> "") Then

 

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_formVal = MM_fields(MM_i+1)

MM_typeArray = Split(MM_columns(MM_i+1),",")

MM_delim = MM_typeArray(0)

If (MM_delim = "none") Then MM_delim = ""

MM_altVal = MM_typeArray(1)

If (MM_altVal = "none") Then MM_altVal = ""

MM_emptyVal = MM_typeArray(2)

If (MM_emptyVal = "none") Then MM_emptyVal = ""

If (MM_formVal = "") Then

MM_formVal = MM_emptyVal

Else

If (MM_altVal <> "") Then

MM_formVal = MM_altVal

ElseIf (MM_delim = "'") Then ' escape quotes

MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

Else

MM_formVal = MM_delim + MM_formVal + MM_delim

End If

End If

If (MM_i <> LBound(MM_fields)) Then

MM_tableValues = MM_tableValues & ","

MM_dbValues = MM_dbValues & ","

End If

MM_tableValues = MM_tableValues & MM_columns(MM_i)

MM_dbValues = MM_dbValues & MM_formVal

Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

 

If (Not MM_abortEdit) Then

 

' send email to admin

Dim objCDO

Set objCDO = Server.CreateObject("CDONTS.NewMail")

objCDO.From = Request.Form("NEWS_EMAIL")

objCDO.To = myEmail

objCDO.CC = Request.Form("NEWS_EMAIL")

objCDO.Subject = "New news has been submited"

objCDO.Body = "A new news has been submited and needs to be approved." & vbnewline & "Name: " & Request.Form("NEWS_NAME") & vbnewline & "URL: " & Request.Form("NEWS_URL") & vbnewline & "Description: " & Request.Form("NEWS_DESCRIPTION") & vbnewline & "Submited By: " & Request.Form("NEWS_EMAIL")

objCDO.Send()

Set objCDO = Nothing

 

' execute the insert

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

 

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

 

End If

%>

<%

Dim rsType

Dim rsType_numRows

 

Set rsType = Server.CreateObject("ADODB.Recordset")

rsType.ActiveConnection = MM_connDUnews_STRING

rsType.Source = "SELECT * FROM TYPES ORDER BY TYPE_NAME ASC"

rsType.CursorType = 0

rsType.CursorLocation = 2

rsType.LockType = 1

rsType.Open()

 

rsType_numRows = 0

%>

<script RUNAT=SERVER LANGUAGE=VBSCRIPT>

function DoTrimProperly(str, nNamedFormat, properly, pointed, points)

dim strRet

strRet = Server.HTMLEncode(str)

strRet = replace(strRet, vbcrlf,"")

strRet = replace(strRet, vbtab,"")

If (LEN(strRet) > nNamedFormat) Then

strRet = LEFT(strRet, nNamedFormat)

If (properly = 1) Then

Dim TempArray

TempArray = split(strRet, " ")

Dim n

strRet = ""

for n = 0 to Ubound(TempArray) - 1

strRet = strRet & " " & TempArray(n)

next

End If

If (pointed = 1) Then

strRet = strRet & points

End If

End If

DoTrimProperly = strRet

End Function

</SCRIPT><head>

<link href="assets/DUnews.css" rel="stylesheet" type="text/css">

<script language="JavaScript" type="text/JavaScript">

<!--

function MM_findObj(n, d) { //v4.01

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);

if(!x && d.getElementById) x=d.getElementById(n); return x;

}

 

function MM_validateForm() { //v4.0

var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;

for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args);

if (val) { nm=val.name; if ((val=val.value)!="") {

if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');

if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';

} else if (test!='R') { num = parseFloat(val);

if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';

if (test.indexOf('inRange') != -1) { p=test.indexOf(':');

min=test.substring(8,p); max=test.substring(p+1);

if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';

} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }

} if (errors) alert('The following error(s) occurred:\n'+errors);

document.MM_returnValue = (errors == '');

}

//-->

</script>

</head>

 

 

 

<div class = "links">

<table width="100%" border="0" cellspacing="2" cellpadding="2">

<tr>

<td align="left" valign="middle" class="textBold"><a href="default.asp">NOTICIAS</a>

» ENVIAR NOTICIAS</td>

<td align="right" valign="middle" class="textBold"> </td>

</tr>

<tr>

<td colspan="2" class="textBold">Para enviar notícias, preencha por favor

todo o formulário abaixo. Será revisto, aprovado e publicado dentro de 24 horas.</td>

</tr>

<tr align="center" valign="middle">

<form action="<%=MM_editAction%>" method="POST" name="submit" id="submit">

<td colspan="2"> <table border="0" cellpadding="0" cellspacing="1" bgcolor="#666666">

<tr>

<td align="left" valign="top" bgcolor="#FFFFFF"><table align="center" cellpadding="3" cellspacing="3">

<% If Request.QueryString("requsername") <> "" Then %>

<% End If %>

<tr valign="baseline">

<td align="right" valign="middle" nowrap class="textBold">EMAIL: </td>

<td valign="middle"><input name="NEWS_EMAIL" type="text" class="form" id="NEWS_EMAIL" value="" size="45"></td>

</tr>

<tr valign="baseline">

<td align="right" valign="middle" nowrap class="textBold">CATEGORIA:</td>

<td valign="middle"> <select name="NEWS_TYPE" class="form" id="select">

<%

While (NOT rsType.EOF)

%>

<option value="<%=(rsType.Fields.Item("TYPE_ID").Value)%>"><%=(rsType.Fields.Item("TYPE_NAME").Value)%></option>

<%

rsType.MoveNext()

Wend

If (rsType.CursorType > 0) Then

rsType.MoveFirst

Else

rsType.Requery

End If

%>

</select> </td>

</tr>

<tr valign="baseline">

<td align="right" valign="middle" nowrap class="textBold">

TITULO:</td>

<td valign="middle"> <input name="NEWS_NAME" type="text" class="form" value="" size="45" maxlength="60">

</td>

</tr>

<tr valign="baseline">

<td align="right" valign="middle" nowrap class="textBold">

URL DA NOTICIAS:</td>

<td valign="middle"> <input name="NEWS_URL" type="text" class="form" value="http://www." size="60" maxlength="90">

</td>

</tr>

<tr>

<td align="right" valign="top" nowrap class="textBold"> DESCRIÇÃO:</td>

<td valign="baseline"> <textarea name="NEWS_DESCRIPTION" cols="60" rows="10" class="form"></textarea>

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right"> </td>

<td> <input name="submit" type="submit" class="form" id="submit2" onClick="MM_validateForm('NEWS_EMAIL','','RisEmail','NEWS_NAME','','R','NEWS_URL','','R','NEWS_DESCRIPTION','','R');return document.MM_returnValue" value="Enviar">

<input type="hidden" name="NEWS_DATED" value="<%= date()%>" size="32">

<input type="hidden" name="NEWS_APPROVED" value="0" size="32">

<input type="hidden" name="NEWS_RATED" value="0" size="32">

<input type="hidden" name="NEWS_RATES" value="0" size="32">

<input type="hidden" name="MM_insert" value="submit"> </td>

</tr>

</table></td>

</tr>

</table></td>

</form>

 

</tr>

<tr align="center" valign="middle">

<td colspan="2" class="text"><a href="default.asp">Noticias</a> | <a href="submit.asp">Enviar

Noticias</a></td>

</tr>

</table>

 

</div>

 

 

<%

rsType.Close()

Set rsType = Nothing

%>

 

o erro está em

 

objCDO.Send() segundo a pagina de erro do link

[hargon 64]

humm Por enquanto o problema é na hora de enviar e-mail.

 

Coloca send sem os parênteses. E outra coisa... pq não tenta utilizar o CDOSYS ao invés do CDONTS?

 

Até mais.