Alguem Pode Me Ajudar... Duvida Formulario

[Guest - Cezar -]

Ola pessoal.

Gostaria de saber se alguém pode me ajudar nesta duvida.

Tenho um script em ASP de classificados. Simples.

O que acontece e que em um arq chamado addnewadf(adicionar novo anuncio) tem campos para nome, email, local etc...

E tem o campo do texto do anuncio.

A linha deste campo e:

Response.Write sInfoCellOpen & "<textarea rows=""5"" name=""adcontent"" cols=""30"">" & sContent & "</textarea>" & sInfoCellClose

O que eu posso incluir para que neste campo de texto do anuncio o usuario possa preencher com no max 100 caracteres por exemplo?

porque o que esta acontecenco e que este campo esta sem valor limite, e a pessoa pode escrever um jornal ali. E a ideia e so de algumas palavras, um anuncio.

Abaixo parte deste codigo...

Pessoal, eu agradeco muito quem possa me dsar uma dica, pois não manjo muito de asp, estou aprendendo... Obrigado. Cezar

Sub ShowForm

Response.Write "<CENTER>" & gsPlainTextOpen & GLS_ItemsMarked & gsPlainTextOpen & "</CENTER>"

Response.Write "<FORM METHOD = ""POST"" ACTION=""QCNewAdForm.asp"">"

Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""cmd"" VALUE=""POST"">"

Response.Write "<TABLE border=""0"" cellspacing=""0"" width=""100%"" align=""CENTER"">"

Response.Write "<tr><td colspan=""2"" bgcolor=""" & gsPageBGColor & """>" & gsSubHeadOpen & GLS_YourInfo & gsSubHeadClose & "</td></tr>"

Response.Write sLabelCellOpen & OutMatch(objErr.Exists("NAME"), True, objErr.Item("NAME"),GLS_YourName ) & gsReqSymbol & sLabelCellClose

Response.Write sInfoCellOpen & "<input type=""text"" name=""name"" size=""27"" value=""" & sName & """ maxlength=""65"">" & sInfoCellClose

Response.Write sLabelCellOpen & OutMatch(objErr.Exists("EMAIL"), True, objErr.Item("EMAIL"),GLS_EmailAddress )

ShowRequired(gbReqEmail)

Response.Write sLabelCellClose

Response.Write sInfoCellOpen & "<input type=""text"" name=""email"" size=""27"" value=""" & sEmail & """ maxlength=""80"">" & sInfoCellClose

If gbShowStreet Then

Response.Write sLabelCellOpen & OutMatch(objErr.Exists("STREET"), True, objErr.Item("STREET"),GLS_StreetAddress )

ShowRequired(gbReqStreet)

Response.Write sLabelCellClose

Response.Write sInfoCellOpen & "<input type=""text"" name=""address"" size=""27"" value=""" & sAddress & """ maxlength=""65"">" & sInfoCellClose

End If

If gbShowCity Then

Response.Write sLabelCellOpen & OutMatch(objErr.Exists("CITY"), True, objErr.Item("CITY"),GLS_City )

ShowRequired(gbReqCity)

Response.Write sLabelCellClose

Response.Write sInfoCellOpen & "<input type=""text"" name=""city"" size=""27"" value=""" & sCity & """ maxlength=""50"">" & sInfoCellClose

End If

If gbShowState Then

Response.Write sLabelCellOpen & OutMatch(objErr.Exists("STATE"), True, objErr.Item("STATE"),GLS_State )

ShowRequired(gbReqState)

Response.Write sLabelCellClose

Response.Write sInfoCellOpen & "<input type=""text"" name=""state"" size=""3"" value=""" & sState & """ maxlength=""20"">" & sInfoCellClose

End If

If gbShowZipCode Then

Response.Write sLabelCellOpen & GLS_ZipCode & sLabelCellClose

Response.Write sInfoCellOpen & "<input type=""text"" name=""zip"" size=""11"" value=""" & sZip & """>" & sInfoCellClose

End If

If gbShowCountry Then

Response.Write sLabelCellOpen & OutMatch(objErr.Exists("COUNTRY"), True, objErr.Item("COUNTRY"),GLS_Country )

ShowRequired(gbReqCountry)

Response.Write sLabelCellClose

Response.Write sInfoCellOpen & "<input type=""text"" name=""country"" size=""27"" value=""" & sCountry & """ maxlength=""50"">" & sInfoCellClose

End If

Response.Write "<tr><td colspan=""2"" bgcolor=""" & gsPageBGColor & """><P>&nbsp</P></td></tr>"

Response.Write "<tr><td colspan=""2"" bgcolor=""" & gsTableColor & """>" & gsSubHeadOpen & GLS_AdInformation & gsSubHeadClose & "</td></tr>"

Response.Write sLabelCellOpen & OutMatch(objErr.Exists("CATEGORY"), True, objErr.Item("CATEGORY"),GLS_AddItemCat ) & gsReqSymbol & sLabelCellClose

Response.Write sInfoCellOpen

Response.Write "<SELECT NAME=""catID"">"

GetCategories

Response.Write "</SELECT>"

Response.Write sInfoCellClose

Response.Write sLabelCellOpen & OutMatch(objErr.Exists("TITLE"), True, objErr.Item("TITLE"),GLS_AdTitle ) & gsReqSymbol & sLabelCellClose

Response.Write sInfoCellOpen & "<input type=""text"" name=""title"" size=""27"" value=""" & sTitle & """ maxlength=""50"">" & sInfoCellClose

If gbShowPrice Then

Response.Write sLabelCellOpen & OutMatch(objErr.Exists("PRICE"), True, objErr.Item("PRICE"),GLS_AdPrice )

ShowRequired(gbReqPrice)

Response.Write sLabelCellClose

Response.Write sInfoCellOpen & gsMoneySymbol & "<input type=""text"" name=""price"" size=""10"" value=""" & OutMatch(fPrice,0, "", fPrice) & """>" & sInfoCellClose

End If

Response.Write "<tr><td width=""180"" bgcolor=""" & gsPageBGColor & """ valign=""top"">" & gsLabelOpen & OutMatch(objErr.Exists("CONTENT"), True, objErr.Item("CONTENT"),GLS_AdContent ) & gsReqSymbol & sLabelCellClose

Response.Write sInfoCellOpen & "<textarea rows=""5"" name=""adcontent"" cols=""30"">" & sContent & "</textarea>" & sInfoCellClose

Response.Write sLabelCellOpen & "&nbsp;" & sLabelCellClose

Response.Write sInfoCellOpen & "<input type=""submit"" value=""" & GLS_Submit & """ name=""B1"">"

Response.Write "&nbsp;<input type=""reset"" value=""" & GLS_Reset & """ name=""B2"">" & sInfoCellClose

Response.Write "</table></FORM>"

[.Andreia.]

Para limitar textarea, você pode usar função em Javascript. Dê uma olhada no fórum de JavaScript