Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Guest - Cezar -

Alguem Pode Me Ajudar... Duvida Formulario

Question

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>"

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148100
    • Total Posts
      643345
×
×
  • Create New...