<% Dim entry1 dim date1 dim name1 inputnum = request.querystring("inputnum") If IsEmpty(inputnum) or inputnum = "" then %>

Adicionar Notícia

Notícia


Data                  Chamada
   
 

Lembretes de formatação

<font name=X color=X></font>

<b></b> Bold
<i></i>   Italic
<u></u> underline
<br>          Line break
<p></p> Paragraph definition 

Use este predefinições e visualize clicando abaixo no botão visualizar.

Visualizar
 
 

 


se vocês está satisfeito click em enviar senão click abaixo pra corrigir.
aqui para voltar à edição.



Voltar

<% else date1 = Now() pname = request.form("name1") pdate = request.form("date1") entry1 = request.form("Entry1") ' Yeah I got quotes praise the lord he he he pname = Replace(request.form("name1"), "'", "''") pdate = request.form("date1") entry1 = Replace(Request.Form("Entry1"), "'", "''") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../parnanet.mdb") &";" SQLstmt = "INSERT INTO noticias (data,chamada,noticia)" SQLstmt = SQLstmt & " VALUES (" SQLstmt = SQLstmt & "'" & pdate & "'," SQLstmt = SQLstmt & "'" & pname & "'," SQLstmt = SQLstmt & "'" & entry1 & "'" SQLstmt = SQLstmt & ")" Set RS = conn.execute(SQLstmt) %>

 

 


Sua Notícia foi postada com sucesso!

 

 

 

 

Adicionar Outra   ¦ Visualizar Notícias

<%end if%>