<%
Dim strConnString, oConn, oRS, oFld
Set oConn = Server.CreateObject("ADODB.Connection")
strConnString = Application("conectar")
oConn.Open strConnString
%>
Noticias en Comicvia
<%
if (request.form("pass") = "") and (request.form("nom") = "") then
elseif (request.form("pass") = "") or (request.form("nom") = "") then
response.write "Faltan Datos."
else
if Request.Form("nom") <> "" then
'do until mirar.eof = true
Set usu = Server.CreateObject("ADODB.Connection")
usu.Open oConn
'dim nameuser
nameuser = ltrim(Request.Form("nom"))
nameuser = rtrim(nameuser)
sql = "SELECT * FROM vianewsusuario where usuario = '" & nameuser & "'"
'response.write sql
'response.end
Set usuarios = usu.execute(sql)
if not usuarios.eof then
response.write "El nombre de usuario ya esta en uso."
else
sql = "INSERT INTO vianewsusuario (usuario, pass) VALUES ('" & request.form("nom") & "','" & request.form("pass") & "')"
usu.execute(sql)
response.write "Gracias por registrarte."
Response.end
end if
end if
end if
%>