ola galera . tenho uma aplicação com asp e utilizo javascript para bater foto do cliente . consigo apos a foto batida salvar no pc com o ID do cliente,
porem gostaria que assim que a foto fosse batida salvasse na raiz do proprio site.
tem como fazer isso ?
obg
Estou quebrando a cabeça com o recurso Session_OnStart , pois eu gostaria que algumas paginas/arquivos .asp tivessem exceções.
Criei o Global.ASA com o seguinte contexto:
<SCRIPT RUNAT=Server Language="VBScript">
Sub Session_OnStart
startPage = "/default.asp"
currentPage = Request.ServerVariables("SCRIPT_NAME")
If strcomp(currentPage,startPage,1) then
Response.Redirect("/default.asp")
End If
End Sub </SCRIPT>
Ele funciona perfeitamente, quando tento acessar qualquer pagina ou subdiretorio diretamente pela URL, ele me joga para a pagina inicial.
Porem, eu gostaria de ter exceções em alguns diretorios e paginas .ASP , onde eu gostaria de liberar o acesso direto ao digitar a URL.
Converti o banco de dados de uma app em ASP Classico de MSSQL para MySQL para redução de custos e percebi que alguns componentes ou recursos não estão mais funcionando devido a não compatibilidade com o MySQL , como por exemplo a função : RecordCount
Já consegui converter e atualizar 95% de aplicação para rodar com o MySQL, mas tem 1 item que esta tirando meu sono e após dias pesquisando, resolvi pedir ajuda.
Segue o meu codigo abaixo , onde estou com problema no resultado dessa operação:
<%
...
Set RS = Server.CreateObject("ADODB.Recordset")
RS.CursorLocation = 3
RS.CursorType = 3
RS.ActiveConnection = Cn
RS.Open strSQL, Cn, 3, 3
RS.PageSize = 25
RS.CacheSize = RS.PageSize
intPageCount = RS.PageCount
intRecordCount = RS.RecordCount
If NOT (RS.BOF AND RS.EOF) Then
If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount
If CInt(intPage) <= 0 Then intPage = 1
If intRecordCount > 0 Then
RS.AbsolutePage = intPage
intStart = RS.AbsolutePosition
If CInt(intPage) = CInt(intPageCount) Then
intFinish = intRecordCount
Else
intFinish = intStart + (RS.PageSize - 1)
End if
End If
If intRecordCount > 0 Then
For intRecord = 1 to RS.PageSize
QntExibicoes = QntExibicoes + Rs.fields("views")
...
%>
Já percebi que a função RecordCount não pode ser usada com o MySQL ou pelo menos não é compativel.
A paginação esta funcionando !
Porem , não consigo fazer ele calcular a quantidade de linhas (rows) do MySQL com a função RecordCount e acredito que possa ter alguma outra função que não esta compativel , mas como não conheço MySQL , não posso afirmar.