form Whois

[max1975_na]

Salve a tutti...
FInalmente ho acquistato un modulo che mi permette di fare un controllo sullo stato di registrazione dei domini internazionali...

Il problema sorge quando il dominio risulta libero, quindi devo inserire un link che mi porti alla pagina per registrarlo....

fino a qui tutto fila (in teoria) ma quando inserisco un link

registralo

mi genera errore!!!

Microsoft VBScript compilation error '800a0400'
Expected statement
/a_hosting/CyberWhois.asp, line 99
registralo
^

alla linea 99 troviamo questo:
97 Else
98 GetMeta = "<- Nessun dominio trovato ->"
99 registralo
100 End If

praticamente devo capire come inserire un link quando mi genera il risultato!!!

A tutti grazie anticipatamente..
Tutti i consigli sono ben accetti

[Roby_72]

Posta un po' più di codice perché così non si capisce.

Roby

[max1975_na]

ecco piu codice:

'-----------------------------
Function GetMeta(strStart, strEnd, strFileTxt)
'-----------------------------
Dim intStart
Dim intEnd
	
intStart = InStr(1, LCase(strFileTxt), strStart, 1)

If intStart = 0 And InStr(strStart, "name=") Then
	strStart = Replace(strStart, "name=", "http-equiv=")
	intStart = InStr(1, LCase(strFileTxt), strStart, 1)		
End If

If not intStart = 0 Then
	intStart = intStart + Len(strStart)
	intEnd = InStr(intStart, LCase(strFileTxt), strEnd, 1)
	GetMeta = Trim(Mid(strFileTxt, intStart, (intEnd - intStart)))
Else
	GetMeta = "<- Nessun dominio trovato ->"
	vorrei inserire un collegamento ad una pagina quì cosi che se il dominio risulta libero smistiamo sulla pagina per registrarlo!!!! 
' registralo

End If

'-----------------------------
End Function
'-----------------------------

%>

Grazie!

[Roby_72]

Response.Write("registralo")

Roby

[max1975_na]

ok... il script va...
perche pero viene visualizato in alto nonostante lo abbia messo piu giu?



'-----------------------------
Function GetMeta(strStart, strEnd, strFileTxt)
'-----------------------------
Dim intStart
Dim intEnd

intStart = InStr(1, LCase(strFileTxt), strStart, 1)

If intStart = 0 And InStr(strStart, "name=") Then
strStart = Replace(strStart, "name=", "http-equiv=")
intStart = InStr(1, LCase(strFileTxt), strStart, 1)
End If

If not intStart = 0 Then
intStart = intStart + Len(strStart)
intEnd = InStr(intStart, LCase(strFileTxt), strEnd, 1)
GetMeta = Trim(Mid(strFileTxt, intStart, (intEnd - intStart)))
Else
GetMeta = "<- Nessun dominio trovato ->"
Response.Write("registralo")
End If

'-----------------------------
End Function
'-----------------------------

%>

[Roby_72]

GetMeta = "<- Nessun dominio trovato ->"
GetMeta = GetMeta &"
registralo"

Roby

[max1975_na]

sei un grande!!

[max1975_na]

Salve, sono dinuovo alle prese con questo form...

Stranamente non riesco a capire questa storia, mi spiego..
1 pagina con un semplice form:

http://www.mcmmultimediacommunicatio.../whoisform.asp

il problema è che quando associo al bottone standard di windows un immagine la pagina dove viene visualizzata la risposta non visualizza nulla!!!

E da manicomio...

nella seconda pagina troviamo questo (se puo servire):

<%
if request.form("B1")="Submit" then

	' Retrieve Input From Form
	strDomain=request.form("domain")
	strExt=request.form("ext")
	z=1
	
	Response.write "<title>Whois (" & strDomain & strExt & ") !</title>"

' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

tutti i consigli sono ben accetti!!

Grazie anticipatamente

[max1975_na]

up

[fabio.beoni]

Non mettere <input type "image">

Usa direttamente l'immagine, metti un link vuoto sull'immagine stessa (#)

Poi all'immagine aggiungi l'evento onClik = "document.forms[1].submit();"

Occhio! document.forms[0].submit, significa: prendi il il primo form sulla pagina ed invialo, se devi inviare il secondo form metti forms[1], per il terzo forms[2].

Come vedi il numero del forms è un indice che parte da "0"....

Ciao, Fabio.