Galera seguinte gostaria de inserir dados atraves de uma 'Text' (type=text) em uma tabela no Sql-Server 2000
Mas estou tendo alguns problemas vou colocar o codigo abaixo pra quem quiser comprender melhor...
Por exemplo quero ter uma text ao inserir por exemplo um nome nela ela , ele execute um INSERT INTO e jogue o valor na tabela codigo abaixo ....
<
HTML>
<HEAD>
<TITLE>Curso de ASP</TITLE><% @ LANGUAGE= VBSCRIPT %>
</HEAD>
<BODY>
<%
Dim
DbConn ,RsNome
Dim
Sql
on
error resume next
Set
Dbconn = Server.CreateObject("ADODB.Connection")
Set
RsNome =Server.CreateObject("ADODB.Recordset")
Sql ="execute SPR_ASP_SAMPLE"
DbConn.Open "Provider=SQLOLEDB;Data Source=MYBASE\SQL2000;Initial Catalog=baseteste;Integrated Security=SSPI"
set
RsNome =Dbconn.Execute(Sql)
%>
<
table align ="left" border =1 ID="Table1">
<
tr>
<
th>Nome</th>
<
th>Idade</th>
<
th>Sexo</th>
</
tr>
<%
Do
While Not RsNome.EOF
%>
<
tr>
<
td><%Response.write RsNOME(0)%></td>
<
td><%Response.write RsNOME(1)%></td>
<
td><%Response.write RsNOME(2)%></td>
</
tr>
<%
RsNOME.MoveNext
Loop
RsNome.Close
DbConn.Close
Set
Dbconn = Nothing
set
RsNome = Nothing
%>
<%
If
IsEmpty( Request.Form("submit") ) Then
%>
<
form method=post action="<%=Request.ServerVariables("script_name")%>" ID="Form1">
<
table border=0 width="80%" align=center ID="Table2">
<tr>
<td align=right valign=top><font face="Arial" size="2">NOME:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="NOME_ASP" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}" ID="Text1">
</td>
</tr>
<tr>
</tr>
</font>
</
table>
<
center><input type=submit name=submit value=Incluir style="{<font-family:Arial; font-size:12}" ID="Submit1"></center>
</
form>
<%
Else
If Not IsEmpty(Request.Form("submit")) Then
DbConn.Open "Provider=SQLOLEDB;Data Source=MYBASE\SQL2000;Initial Catalog=baseteste;Integrated Security=SSPI"
nome = "Pedro"
ComandoSQL = "INSERT INTO TBL_ASP VALUE (" & request("nome") & ")"
set RsNome =Dbconn.Execute(ComandoSQL)
RsNome.Close
DbConn.Close
Set Dbconn = Nothing
set RsNome = Nothing
Response.Write("Zangirolami")
%>
<font face="Arial" size="2">
<center><br>Os dados foram enviados com sucesso!
<br><a href="index.asp"><b>Clique aqui</b></a> para continuar</font></center>
<%
Else
%>
<font face="Arial" size="2">
<center><br>Atenção: Alguns dados necessário não foram preenchidos corretamente
<br><a href="BLOCKED SCRIPThistory.go(-1)"><b>Clique aqui</b></a> para voltar</font></center>
<%
End If
End
If
%>
