Como mostrar o próximo Código

[Java Developer 0]

Então pessoal

 

Tenho um formulário com 5 campos.

 

Eu precisava que exibi-se o proximo cod(que é auto-increment) nesse formulario. Quero exibir como texto.

 

TO usuando MySQL e ASP.

 

Alguem poderia me ajudar.

[hargon 64]

Se o código ainda não foi cadastrado, será inviável fazer isso. Corre o risco de você mostrar o mesmo código para duas pessoas e quando concluirem o cadastro, ser outro código para uma delas.

[xanburzum 169]

ve se ajuda...

usando movelast e movenext

 

<%@ Language="VBScript" %>
<% Option Explicit %> 

<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
Response.Buffer = True
%>

<% 
dim CursorType,adOpenStatic



dim connection, recordset, sConnString, sql
dim intRandomNumber, intTotalRecords, i

sql = "SELECT * FROM SITES"


Set connection = Server.CreateObject("ADODB.Connection")
Set recordset = Server.CreateObject("ADODB.Recordset") 
sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ 
"Data Source=" & Server.MapPath("buddyring.mdb") 


connection.Open(sConnString)


recordset.Open sql, connection, 3, 3
intTotalRecords = recordset.RecordCount


recordset.movelast
dim strLast, strLurl
strLast = (recordset.Fields("siteID"))
strLurl = (recordset.Fields("URL"))

recordset.movefirst
dim strFirst,str1sturl
strFirst = (recordset.Fields("siteID"))
str1sturl = (recordset.Fields("URL"))
dim strNum
strNum = CInt((request.querystring("site")))



do until recordset.Fields("siteID")=strNum
recordset.MoveNext
loop
dim strRec, strURL
strRec = (recordset.Fields("siteID"))
strURL = (recordset.Fields("URL"))
response.write"First Record: " & strFirst &"<BR>"
response.write"Current Record: "& strRec & "<BR>"
response.write"Last Record: " & strLast &"<BR>"

dim strNPrev
dim strFURL
if strFirst < strNum then
do until recordset.Fields("siteID")<strNum
recordset.MovePrevious
loop
strNPrev = recordset.Fields("siteID")
strFURL = recordset.Fields("URL")
else 
strNPrev = strLast
strFURL = strLurl
end if

response.write "Previous Record: " & strFURL & "?siteid="& strNPrev &"<BR>"


dim strNext
dim strNURL
if strNum < strLast then
do until recordset.Fields("siteID")>strNum
recordset.MoveNext
loop
strNext = recordset.Fields("siteID")
strNURL = recordset.Fields("URL")
else
strNext = strFirst
strNURL = str1sturl
end if
response.write "Next Record: " & strNURL &"?siteid=" & strNext &"<BR>"
if request.querystring("pg")="prev" then
response.redirect strFURL & "?siteid="& strNPrev
elseif request.querystring("pg")="next" then
response.redirect strNURL &"?siteid=" & strNext
elseif request.querystring("pg")="random" then


Dim rndMax
rndMax = CInt(recordset.RecordCount)

recordset.MoveFirst

Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)

recordset.Move rndNumber

Response.Redirect(recordset("URL"))
end if

recordset.Close
Set recordset=Nothing
connection.close
Set connection=Nothing
%>

muitos usam campo extra de controle que insire já sabendo seu valor, depois seleciona a Id a partir deste campo, mas gera informações desnecessárias alguns usam TOP 1 ou você tb pode pegar o maior ID ,enquanto existir este ID, soma mais um e refaz a pesquisa até nao existir, ai sim grava.... e voce ja tera o ID que voce cadastrou numa variavel...

 

ou tentar

set rs = conn.execute("select MAX(RecordID) from NEWS") 
strNewID = rs(0)