<%@ LANGUAGE="VBSCRIPT" %>
Untitled Document
<%
dim tabela,banco
dim caminho,msql
dim XCOD
XCOD=0
caminho="FILE NAME=" & server.MapPath("\mundoadm\conexao") & "\mundoadm.udl"
set tabela=Server.CreateObject("ADODB.Recordset")
msql="INSERT INTO S_FORUM (" _
&"Assunto," _
&"qtd_usuarios) VALUES "
' string sql da part ("valor1","valor2", ... , valorn)
msql=msql&"('"&Request.Form("assunto")&"'," _
&"0"
msql=msql&")"
response.write(msql)
tabela.open msql,caminho
SET tabela=Nothing
%>
<%=request("assunto")%>