[ASP] database con frontpage

pitman

[ASP] database con frontpage

posto questo messaggio anche qui visto che nella sezione dei consigli non ho trovato risposta

Ciao a tutti e grazie per l'ospitalità.
Ho realizzato un sito interamente con front page 03. Parto dal presupposto che nemmeno io so come ho fatto perchè non ci capisco nulla, però, a detta di molti, il sito non è male.
Ho un problema, ho creato un guestbook (muro) dove gli utenti possono lasciare messaggi. Per fare questo ho creato prima un modulo collegandolo ad un database che front page 03 ti crea in automatico. In un altra pagina ho creato l'area risultati database che anche questa front page 03 crea automaticamente dove vengono visualizzati i messaggi inviati dal modulo.
Ricapitoliamo:
modulo collegato ad un database
area risultati database dove vengono rilasciati i post.
Il mio problema è questo, quando l'utente scrive il suo post nel modulo che poi invierà ad esempio in questo modo :
**ciao, sono tizio.
Tutto bene.
Vi saluto.
**nell'area risultati il suo post si leggerà in questo modo:
**ciao,sono tizio.Tutto bene.Vi saluto

**In pratica, se l'utente preme invio per staccare il testo ed andare a capo nella pagina dei risultati ciò non accede ma il testo va a capo solo quando finisce la tabella.
Come posso risolvere questa cosa?
se volete controllare voi stessi questo è il link http://www.tifochieti.com/1234.1224.asp
ovviamente non voglio farmi pubblicità ma solo farvi notare come vengono fuori i post. Noterete che dove sono i punti il testo continua subito dopo invece di andare a capo.

Altro consiglio è se posso oltre al testo anche inserire delle immagini sempre nella stessa area.
Ringrazio chi volesse aiutarmi perchè questa cosa mi sta facendo impazzire vista anche la mia ignoranza in materia.
ciao e grazie

alibi74

Ciao pitman benvenuto ti sposto in una sezione piu' appropiata visto che credo che il problema sta nel codice qui' troverai sicuramente persone piu' preparate per questo tipo di cose.

legolas

Ciao,
per aggiungere gli accapo devi fare un replace nel testo quando salvi nel database

replace(Reqest.form("nomecampo"), vbcrlf, "<br/>")

Ciao

pitman

@Legolas said:

Ciao,
per aggiungere gli accapo devi fare un replace nel testo quando salvi nel database

replace(Reqest.form("nomecampo"), vbcrlf, "<br/>")

Ciao

scusa la mia ignoranza ma come detto non sono molto pratico. Riesci a spiegarmelo in parole davvero molto povere? Poi volevo chiedere se possibile inserire foto o testo html nei moduli di frontpage.

ciao e grazie

legolas

Posta il codice con cui fai il salvataggio dei dati nel database

Ciao

pitman

<%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Session.LCID = 1040
Err.Clear
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
 Err.Clear
 Set fp_conn =  Server.CreateObject("ADODB.Connection")
 FP_DumpError strErrorUrl, "Cannot create connection"
 Set fp_rs = Server.CreateObject("ADODB.Recordset")
 FP_DumpError strErrorUrl, "Cannot create record set"
 fp_conn.Open Application("ar.pv_ConnectionString")
 FP_DumpError strErrorUrl, "Cannot open database"
 fp_rs.Open "Risultati", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
 FP_DumpError strErrorUrl, "Cannot open record set"
 fp_rs.AddNew
 FP_DumpError strErrorUrl, "Cannot add new record set to the database"
 Dim arFormFields0(5)
 Dim arFormDBFields0(5)
 Dim arFormValues0(5)
 arFormFields0(0) = "inviata"
 arFormDBFields0(0) = "inviata"
 arFormValues0(0) = Request("inviata")
 arFormFields0(1) = "notizia"
 arFormDBFields0(1) = "notizia"
 arFormValues0(1) = Request("notizia")
 arFormFields0(2) = "oggetto_notizia"
 arFormDBFields0(2) = "oggetto_notizia"
 arFormValues0(2) = Request("oggetto_notizia")
 arFormFields0(3) = "data"
 arFormDBFields0(3) = "data"
 arFormValues0(3) = Request("data")
 arFormFields0(4) = "sport"
 arFormDBFields0(4) = "sport"
 arFormValues0(4) = Request("sport")
 FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
 If Request.ServerVariables("REMOTE_USER") <> "" Then
  FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nome_utente"
 End If
 If Request.ServerVariables("REMOTE_HOST") <> "" Then
  FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nome_computer_remoto"
 End If
 FP_SaveFieldToDB fp_rs, Now, "Data_e_ora"
 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
  FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tipo_browser"
 End If
 fp_rs.Update
 FP_DumpError strErrorUrl, "Cannot update the database"
 fp_rs.Close
 fp_conn.Close
 FP_FormConfirmation "text/html; charset=windows-1252",_
      "Form Confirmation",_
      "Thank you for submitting the following information:",_
      "ar.pv.asp",_
      "Return to the form."
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body bgcolor="#C0C0C0">
<form method="POST" action="--WEBBOT-SELF--">
 <!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="ar.pv" 
 S-RecordSource="Risultati" U-Database-URL="fpdb/ar.pv.mdb" 
 S-Builtin-Fields="REMOTE_USER REMOTE_HOST Timestamp HTTP_USER_AGENT" 
 S-Builtin-DBFields="Nome_utente Nome_computer_remoto Data_e_ora Tipo_browser" 
 S-Form-Fields="inviata notizia oggetto_notizia data sport" 
 S-Form-DBFields="inviata notizia oggetto_notizia data sport" 
 U-ASP-Include-Url="_fpclass/fpdbform.inc" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="_fpclass/fpdbform.inc"--><!--webbot 
 bot="SaveDatabase" endspan i-checksum="40548" -->
 <p><input type="text" name="data" size="20">data&nbsp; es (sabato 13 
 dicembre)<br>
 <input type="text" name="sport" size="20">sport es (calcio)<br>
 <input type="text" name="oggetto_notizia" size="20">oggetto notizia&nbsp;&nbsp; 
 es (vince il Chieti)<br>
 <input type="text" name="inviata" size="20">inviata da&nbsp; es (notizia 
 inviata da Teatefan)<br>
 <textarea rows="11" name="notizia" cols="25"></textarea><font size="5" 
 face="Verdana">tutte le notizie</font></p>
 <p><input type="submit" value="Invia" name="B1"><input type="reset" 
 value="Reimposta" name="B2"></p>
 
</form>
<p><a href="index.htm">home</a><br>
<a href="tutte%20le%20notizie.asp">tutte le notizie</a></p>
</body>
</html>

legolas

Ciao,
inizio subito dandoti un cicchetto ;), utilizza l'apposito tag per postare il codice almeno il tutto diventa più leggibile e posta solamente le righe interessate, il resto, come l'html è superfluo in questo caso

Passiamo al problema vero e prorio.
Cambia questa stringa:

arFormValues0(1) = Request("notizia")

con questa:

replace(Request("notizia"), vbcrlf, "<br/>")

pitman

arFormFields0(0) = "inviata"
arFormDBFields0(0) = "inviata"
arFormValues0(0) = Request("inviata")
arFormFields0(1) = "notizia"
arFormDBFields0(1) = "notizia"
*arFormValues0(1) = replace(Request("notizia"), vbcrlf, "<br/>")

arFormFields0(2) = "oggetto_notizia"
arFormDBFields0(2) = "oggetto_notizia"
arFormValues0(2) = Request("oggetto_notizia")
arFormFields0(3) = "data"
arFormDBFields0(3) = "data"
arFormValues0(3) = Request("data")
arFormFields0(4) = "sport"
arFormDBFields0(4) = "sport"
arFormValues0(4) = Request("sport")

Niente da fare. E' sempre uguale anche con questa modifica al codice.
Continua a visualizzare il testo su un unica riga
ES. Ciao.Ciao
e non
Ciao.
Ciao