ASP' de textarea'dan DB'ye biçimlendirilmiş yazı

Öncelikle Merhaba Arkadaşlar

ASP' de textarealardan nasıl biçimli veri kaydedebilirim. Örneğin kullanıcının girdiği paragrafları veya satırbaşlarını veya boşlukları vb şeyleri nasıl veritabanına olduğu gibi kaydedebilirim.Veritabanından sayfaya yazdırdığım zaman aynısını (görsel olarak güzel) yazdırmak istiyorum.

İlgilenen arkadaşlara teşekkür ediyorum.

<%
Function duzenle(strInput)
    strTemp = strInput
    strTemp = Replace(strTemp, "       ", "       ", 1, -1, 1)
    strTemp = Replace(strTemp, "      ", "      ", 1, -1, 1)
    strTemp = Replace(strTemp, "     ", "     ", 1, -1, 1)
    strTemp = Replace(strTemp, "    ", "    ", 1, -1, 1)
    strTemp = Replace(strTemp, "   ", "   ", 1, -1, 1)
    strTemp = Replace(strTemp, vbCrLf, "<BR>" & vbCrLf, 1, -1, 1)
    duzenle = strTemp
End Function
%>  

Sonra da textten gelen yazıyı replace edip öyle kaydediceksiniz..Misal

<%
yazi=Request.Form("yazi")
yazi=duzenle(yazi)
'Sonra da yaziyı dbye kaydet

%>

Teşekkürler ama şöyle bir hata mesajı ile karşılaştım:
textboxlara boşluk bırakıp yazı girip
DB'ye kaydetmeye çalıştığımda şöyle bir hata mesajı ile karşılaşıyorum:

Hata Tipi:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Birden fazla adımlı OLE DB işlemi hatalar oluşturdu. Olası ise, her OLE DB durum değerini denetleyin. İş yapılmadı.
/asp/kaydet.asp, line 104

Saniyorum sendeki problem tirnak isaretlerinden kaynaklaniyor, eger asagidaki cozum calismaz ise baglanti ayarlarinda sorun vardir.

Sayfanin biryerlerine asagidaki fonksiyonu yaz:

[ Tüm kodu seç ] [ Yeni Pencerede Göster ]

function temizle(stringVal) returnVal = "" if len(trim(stringVal)) > 0 then returnVal = trim(stringVal) returnVal = replace(returnVal,"'","''") end if temizle = returnVal end function

[ Tüm kodu seç ] [ Yeni Pencerede Göster ]

sql= " insert into tabloadi (a,b,c) values ('" & temizle(a) & "','" &temizle(b)& "','"&temizle(c)&"') " recordset.open sql, connstring