Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

matiello

Banco de Dados Access c/ Multi-linha

Por , em ASP Clássico

Recommended Posts

matiello    0

matiello
Postado

Olá! Como estou iniciando com ASP, gostaria de saber se alguém poderia me dizer o local correto de onde eu devo inserir a linha de comando <%=Replace(aquiavariaveldoseutexto,chr(13),"<BR>")%>, que descobri num outro forum de ASP mas que, pela minha inexperiência no assunto, gerou esta dúvida.

 

Vou precisar também de uma explicação do que digitar no lugar de "aquiavariaveldoseutexto" (desculpe pela minha ignorância, tá?!)

 

Segue abaixo o código completo da página que contém o formulário em questão. Desde já agradeço imensamente a ajuda de vocês! :D

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

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

<%

' *** 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 & "?" & Server.HTMLEncode(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")) = "form1") Then

 

MM_editConnection = MM_conn_piracicaba2010_STRING

MM_editTable = "Noticias"

MM_editRedirectUrl = "noticias_inclusao_OK.htm"

MM_fieldsStr = "Data|value|Fonte|value|Titulo|value|Resumo|value|Palavrachave|value|Noticia

|value"

MM_columnsStr = "Data|',none,NULL|Fonte|',none,''|Titulo|',none,''|Resumo|',none,''|Palavrachave|',none,''|Noticia|',none,''"

 

' 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

' 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

%>

<html>

<head>

<title>ONG Piracicaba 2010 - Inclusão de notícias</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body bgcolor="#E1F0B9">

<p align="center"><strong><font face="Arial, Helvetica, sans-serif">ONG Piracicaba 2010 - Inclusão

de notícias</font></strong></p>

<form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1">

<table align="center">

<tr valign="baseline">

<td nowrap align="right"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Data</strong>:</font></td>

<td> <font size="2" face="Arial, Helvetica, sans-serif">

<input type="text" name="Data" value="" size="32">

(dd/mm/aaaa)</font></td>

</tr>

<tr valign="baseline">

<td nowrap align="right"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Fonte</strong>:</font></td>

<td> <font size="2" face="Arial, Helvetica, sans-serif">

<input type="text" name="Fonte" value="" size="50">

</font></td>

</tr>

<tr valign="baseline">

<td nowrap align="right"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Título</strong>:</font></td>

<td> <font size="2" face="Arial, Helvetica, sans-serif">

<input name="Titulo" type="text" id="Titulo" value="" size="100">

</font></td>

</tr>

<tr>

<td nowrap align="right" valign="top"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Resumo</strong>:</font></td>

<td valign="baseline"> <font size="2" face="Arial, Helvetica, sans-serif">

<textarea name="Resumo" cols="100" rows="5"></textarea>

</font></td>

</tr>

<tr valign="baseline">

<td nowrap align="right"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Palavra-chave</strong>:</font></td>

<td> <font size="2" face="Arial, Helvetica, sans-serif">

<input type="text" name="Palavrachave" value="" size="100">

</font></td>

</tr>

<tr>

<td height="121" align="right" valign="top" nowrap><font size="2" face="Arial, Helvetica, sans-serif"><strong>Noticia</strong>:</font></td>

<td valign="baseline"> <font size="2" face="Arial, Helvetica, sans-serif">

<textarea name="Noticia" cols="100" rows="50" id="Noticia"></textarea>

</font></td>

</tr>

<tr valign="baseline">

<td colspan="2" align="right" nowrap><div align="center"><font size="2" face="Arial, Helvetica, sans-serif">

<input type="reset" name="Reset" value="Redefinir">

 </font>

<font size="2" face="Arial, Helvetica, sans-serif">

<input type="submit" value="Inserir">

</font></div></td>

</tr>

</table>

 

<input type="hidden" name="MM_insert" value="form1">

</form>

<p> </p>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

primeira dica, faz um curso de ASP, ou compra livros e aprende a programar em ASP, tente ao máximo não fazer nada pelo Dreamweaver... ele suja completamente o código...

 

você deve colocar aquela linha no local onde será exibido aquele campo do banco de dados... e no lugar daquela aquiavariaveldoseutexto vai ou a variavel q você setou com o valor do banco de dados ou o recordset...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito